Merge pull request #455 from massimoaria/develop

Solved issue with affiliation names
massimoaria · May 3, 2024 · a4b825d · a4b825d
2 parents 72d0b18 + 0d79416
commit a4b825d
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/R/metaTagExtraction.R b/R/metaTagExtraction.R
@@ -407,6 +407,9 @@ AU_UN<-function(M,sep){
  M$AU_UN=AFFL
  if (M$DB[1] %in% c("ISI", "OPENALEX") & "C3" %in% names(M)){
  M$AU_UN[!is.na(M$C3) & M$C3!=""] <- M$C3[!is.na(M$C3) & M$C3!=""]
+ M$AU_UN <- unlist(lapply(strsplit(M$AU_UN,sep),function(l){
+ l <- paste(trim(l), collapse = sep)
+ }))
  }
  M$AU_UN=gsub("\\\\&","AND",M$AU_UN)
  M$AU_UN=gsub("\\&","AND",M$AU_UN)

diff --git a/inst/biblioshiny/utils.R b/inst/biblioshiny/utils.R
@@ -72,7 +72,7 @@ DTformat <- function(df, nrow=10, filename="Table", pagelength=TRUE, left=NULL,
  buttons = list(
  list(extend = 'pageLength'),
  list(extend = 'excel',
- filename = paste0(filename,"_tall_",Sys.Date()),
+ filename = paste0(filename,"_bibliometrix_",Sys.Date()),
  title = " ",
  header = TRUE,
  exportOptions = list(
@@ -82,7 +82,7 @@ DTformat <- function(df, nrow=10, filename="Table", pagelength=TRUE, left=NULL,
  } else{
  buttons = list(
  list(extend = 'excel',
- filename = paste0(filename,"_tall_",Sys.Date()),
+ filename = paste0(filename,"_bibliometrix_",Sys.Date()),
  title = " ",
  header = TRUE,
  exportOptions = list(