Merge pull request #435 from massimoaria/develop

Biblioshiny: Menu Data - Added the option to choose between Author fu…
massimoaria · Mar 12, 2024 · b0180a0 · b0180a0
2 parents cba43ef + e5ee58c
commit b0180a0
Show file tree

Hide file tree

Showing 2 changed files with 34 additions and 0 deletions.
diff --git a/inst/biblioshiny/server.R b/inst/biblioshiny/server.R
@@ -239,6 +239,11 @@ To ensure the functionality of Biblioshiny,
                                   M <- convert2df(D,
                                                   dbsource = input$dbsource,
                                                   format = format(D))
+                                  if (input$authorName=="AF"){
+                                    M <- M %>% 
+                                      rename(AU_IN = .data$AU,
+                                             AU = .data$AF)
+                                  }
                                 })
                  },
                  ### WoS Txt/Bib Files
@@ -248,6 +253,11 @@ To ensure the functionality of Biblioshiny,
                                   M <- convert2df(inFile$datapath,
                                                   dbsource = input$dbsource,
                                                   format = format(inFile$datapath))
+                                  if (input$authorName=="AF"){
+                                    M <- M %>% 
+                                      rename(AU_IN = .data$AU,
+                                             AU = .data$AF)
+                                  }
                                 })
                  })
         },
@@ -261,6 +271,11 @@ To ensure the functionality of Biblioshiny,
                                   M <- convert2df(D,
                                                   dbsource = input$dbsource,
                                                   format = format(D))
+                                  if (input$authorName=="AF"){
+                                    M <- M %>% 
+                                      rename(AU_IN = .data$AU,
+                                             AU = .data$AF)
+                                  }
                                 })
                  },
                  ### Scopus CSV/Bib Files
@@ -270,6 +285,11 @@ To ensure the functionality of Biblioshiny,
                                   M <- convert2df(inFile$datapath,
                                                   dbsource = input$dbsource,
                                                   format = "csv")
+                                  if (input$authorName=="AF"){
+                                    M <- M %>% 
+                                      rename(AU_IN = .data$AU,
+                                             AU = .data$AF)
+                                  }
                                 })
                  },
                  bib = {
@@ -278,6 +298,11 @@ To ensure the functionality of Biblioshiny,
                                   M <- convert2df(inFile$datapath,
                                                   dbsource = input$dbsource,
                                                   format = "bibtex")
+                                  if (input$authorName=="AF"){
+                                    M <- M %>% 
+                                      rename(AU_IN = .data$AU,
+                                             AU = .data$AF)
+                                  }
                                 })
                  })
         },

diff --git a/inst/biblioshiny/ui.R b/inst/biblioshiny/ui.R
@@ -261,6 +261,15 @@ body <- dashboardBody(
                                    "Cochrane Library" = "cochrane"
                                  ),
                                  selected = "isi"
+                               ),
+                               selectInput(
+                                 "authorName",
+                                 label = "Author Name format",
+                                 choices = c(
+                                   "Fullname (if available)" = "AF",
+                                   "Surname and Initials" = "AU"
+                                 ),
+                                 selected = "AU"
                                )
                              ),
                              conditionalPanel(