v 3.1.3

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: bibliometrix
 Type: Package
 Title: Comprehensive Science Mapping Analysis
-Version: 3.1.2
+Version: 3.1.3
 Authors@R: c(person("Massimo", "Aria", email = "[email protected]", role=c("cre","aut")),
              person("Corrado", "Cuccurullo", email = "[email protected]", role="aut"))
 Description: Tool for quantitative research in scientometrics and bibliometrics.
@@ -42,7 +42,6 @@ Imports: stats,
 		 stringdist,
 		 stringr,
 		 tidyr,
-		 tidyselect,
 		 tidytext
 Suggests: 
     knitr,

NEWS

@@ -1,7 +1,7 @@
-bibliometrix v3.1.2 (Release date: 2021-05-25)
+bibliometrix v3.1.3 (Release date: 2021-05-25)
 
 Changes:
-* Solved issue in CRAN Debian release
+* Solved issue in bibliometrix binaries for linux releases (from CRAN checks)
 
 
 bibliometrix v3.1.1 (Release date: 2021-05-10)

R/biblioAnalysis.R

@@ -40,7 +40,7 @@
 #'
 #' results <- biblioAnalysis(management)
 #'
-#' # summary(results, k = 10, pause = FALSE)
+#' summary(results, k = 10, pause = FALSE)
 #'
 #' @seealso \code{\link{convert2df}} to import and convert an WoS or SCOPUS Export file in a bibliographic data frame.
 #' @seealso \code{\link{summary}} to obtain a summary of the results.

R/histPlot.R

@@ -121,7 +121,8 @@ histPlot<-function(histResults, n=20, size = 5, labelsize = 5, title_as_label =
   df_net <- df_net %>% 
     left_join(histResults$histData, by = c("name" = "Paper")) #%>%
 
-  Title <- strsplit(df_net$title, "(?<=.{40})", perl = TRUE)
+#  Title <- strsplit(df_net$title, "(?<=.{40})", perl = TRUE)
+  Title <- gsub("(.{40})", "\\1\n",df_net$title) 
   df_net$Title <- unlist(lapply(Title, function(x){
     paste(x,"\n",collapse="", sep="")
   }))

R/summary.bibliometrix.R

@@ -27,7 +27,7 @@
 #' 
 #' results <- biblioAnalysis(scientometrics)
 #'
-#' # summary(results)
+#' summary(results)
 #'
 #' @seealso \code{\link{biblioAnalysis}} function for bibliometric analysis
 #' @seealso \code{\link{plot}} to draw some useful plots of the results.
@@ -79,7 +79,7 @@ summary.bibliometrix<-function(object, ...){
   MainInfo[length(MainInfo)+1]=paste("Authors of single-authored documents ",object$AuSingleAuthoredArt,"\n")
   MainInfo[length(MainInfo)+1]=paste("Authors of multi-authored documents  ",object$AuMultiAuthoredArt,"\n")
   MainInfo[length(MainInfo)+1]=toupper("\nAuthors Collaboration\n")
-  MainInfo[length(MainInfo)+1]=paste("Single-authored documents            ",format(sum(object$nAUperPaper==1),digits=0),"\n")
+  MainInfo[length(MainInfo)+1]=paste("Single-authored documents            ",as.character(round(sum(object$nAUperPaper==1),0)),"\n")#format(sum(object$nAUperPaper==1),digits=0),"\n")
   MainInfo[length(MainInfo)+1]=paste("Documents per Author                 ",format(object$Articles/object$nAuthors,digits=3),"\n")
   MainInfo[length(MainInfo)+1]=paste("Authors per Document                 ",format(object$nAuthors/object$Articles,digits=3),"\n")
   MainInfo[length(MainInfo)+1]=paste("Co-Authors per Documents             ",format(mean(object$nAUperPaper),digits=3),"\n")