solved issue #38

massimoaria · Feb 13, 2019 · 1b7dc05 · 1b7dc05
1 parent 7b508da
commit 1b7dc05
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/citations.R b/R/citations.R
@@ -57,7 +57,7 @@ citations <- function(M, field = "article", sep = ";"){
     if (M$DB[1]=="ISI"){ 
       listCR=lapply(listCR, function(l){
         ListL=lapply(strsplit(unlist(l),","),function(x) x[1])
-        l=unlist(ListL)
+        l=trimws(trimES(gsub("[[:punct:]]"," ",unlist(ListL))))
       })}
     if (M$DB[1]=="SCOPUS"){ 
       listCR=lapply(listCR, function(l){
@@ -67,7 +67,7 @@ citations <- function(M, field = "article", sep = ";"){
           if (length(ind)==0) ind=1
           x=unlist(a[[1]][1:(ind[1]-1)])
         })
-        l=unlist(ListL)
+        l=trimws(trimES(gsub("[[:punct:]]"," ",unlist(ListL))))
       })}
   }
   CR=unlist(listCR)