From 0d794163f42983aa07207466df75b89747ea99d7 Mon Sep 17 00:00:00 2001
From: Massimo Aria <aria@unina.it>
Date: Fri, 3 May 2024 14:49:22 +0200
Subject: [PATCH] Solved issue with affiliation names

---
 R/metaTagExtraction.R    | 3 +++
 inst/biblioshiny/utils.R | 4 ++--
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/R/metaTagExtraction.R b/R/metaTagExtraction.R
index 25b5c1c..ecfc2c9 100644
--- 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
index 96635a9..0e91f61 100644
--- 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(