issue #125: Solved

Author: massimoaria

NEWS

@@ -1,4 +1,4 @@
-bibliometrix v3.0.3 (Release date: )
+bibliometrix v3.0.3 (Release date: 2020-09-25)
 
 Changes:
 * biblioshiny: Improvements in Historiograph visualization

R/biblioAnalysis.R

@@ -36,9 +36,9 @@
 #'
 #'
 #' @examples
-#' data(scientometrics)
+#' data(management)
 #'
-#' results <- biblioAnalysis(scientometrics)
+#' results <- biblioAnalysis(management)
 #'
 #' summary(results, k = 10, pause = FALSE)
 #'
@@ -107,6 +107,7 @@ if ("TC" %in% Tags){
   PY=as.numeric(M$PY)
   CurrentYear=as.numeric(format(Sys.Date(),"%Y"))
   TCperYear=TC/(CurrentYear-PY+1)
+  if (!("DI" %in% names(M))) M$DI <- ""
   MostCitedPapers=data.frame(M$SR,M$DI,TC,TCperYear)
   MostCitedPapers=MostCitedPapers[order(TC,decreasing=TRUE),]
   names(MostCitedPapers)=c("Paper         ","DOI","TC","TCperYear")

R/metaTagExtraction.R

@@ -8,7 +8,7 @@
 #' \tabular{lll}{
 #' \code{"CR_AU"}\tab   \tab First Author of each cited reference\cr
 #' \code{"CR_SO"}\tab   \tab Source of each cited reference\cr
-#' \code{"AU_CO"}\tab   \tab Country of affiliation for each co-author\cr
+#' \code{"AU_CO"}\tab   \tab Country of affiliation for co-authors \cr
 #' \code{"AU1_CO"}\tab   \tab Country of affiliation for the first author\cr
 #' \code{"AU_UN"}\tab   \tab University of affiliation for each co-author and the corresponding author (AU1_UN)\cr
 #' \code{"SR"}\tab     \tab Short tag of the document (as used in reference lists)}
@@ -34,7 +34,7 @@
 #' scientometrics <- metaTagExtraction(scientometrics, Field = "CR_SO", sep = ";")
 #' unlist(strsplit(scientometrics$CR_SO[1], ";"))
 #'
-#' #Example 3: Affiliation country for co-author
+#' #Example 3: Affiliation country for co-authors
 #'
 #' data(scientometrics)
 #' scientometrics <- metaTagExtraction(scientometrics, Field = "AU_CO", sep = ";")