bibliometrix v4.2.1 (Release date: 2024-05-01)

Changes:
* Major fixes in convert2df for Scopus and Lens export files
* Many improvements in Biblioshiny tables and figures

Author: massimoaria

NEWS

@@ -1,3 +1,10 @@
+bibliometrix v4.2.1 (Release date: 2024-05-01)
+
+Changes:
+* Major fixes in convert2df for Scopus and Lens export files
+* Many improvements in Biblioshiny tables and figures 
+
+
 bibliometrix v4.2.0 (Release date: 2024-04-18)
 
 Features:

inst/biblioshiny/server.R

@@ -3376,7 +3376,7 @@ To ensure the functionality of Biblioshiny,
       list_plot <- list(values$degreePlot)
       res <- addDataScreenWb(list_df, wb=values$wb, sheetname=sheetname)
       #values$wb <- res$wb
-      values$wb <- addGgplotsWb(list_plot, wb=res$wb, sheetname, col=res$col+16, width=10, height=7, dpi=75)
+      values$wb <- addGgplotsWb(list_plot, wb=res$wb, res$sheetname, col=res$col+16, width=10, height=7, dpi=75)
       #values$fileTFP <- screenSh(selector = "#cocPlot") ## screenshot
       values$fileCOC <- screenSh(values$COCnetwork$VIS, zoom = 2, type="vis")
       values$list_file <- rbind(values$list_file, c(sheetname=res$sheetname,values$fileCOC,res$col))
@@ -4121,7 +4121,7 @@ To ensure the functionality of Biblioshiny,
       list_plot <- list(values$degreePlot)
       res <- addDataScreenWb(list_df, wb=values$wb, sheetname=sheetname)
       #values$wb <- res$wb
-      values$wb <- addGgplotsWb(list_plot, wb=res$wb, sheetname, col=res$col+15, width=12, height=8, dpi=75)
+      values$wb <- addGgplotsWb(list_plot, wb=res$wb, res$sheetname, col=res$col+15, width=12, height=8, dpi=75)
       #values$fileTFP <- screenSh(selector = "#cocitPlot") ## screenshot
       values$fileCOCIT <- screenSh(values$COCITnetwork$VIS, zoom = 2, type="vis")
       values$list_file <- rbind(values$list_file, c(sheetname=res$sheetname,values$fileCOCIT,res$col))
@@ -4252,7 +4252,7 @@ To ensure the functionality of Biblioshiny,
       list_df <- list(values$colnet$params, values$colnet$cluster_res)
       list_plot <- list(values$degreePlot)
       res <- addDataScreenWb(list_df, wb=values$wb, sheetname=sheetname)
-      values$wb <- addGgplotsWb(list_plot, wb=res$wb, sheetname, col=res$col+15, width=12, height=8, dpi=75)
+      values$wb <- addGgplotsWb(list_plot, wb=res$wb, res$sheetname, col=res$col+15, width=12, height=8, dpi=75)
       #values$fileTFP <- screenSh(selector = "#colPlot") ## screenshot
       values$fileCOL <- screenSh(values$COLnetwork$VIS, zoom = 2, type="vis")
       values$list_file <- rbind(values$list_file, c(sheetname=res$sheetname,values$fileCOL,res$col))

inst/biblioshiny/utils.R

@@ -2152,19 +2152,6 @@ addGgplotsWb <- function(list_plot, wb, sheetname, col, width=10, height=7, dpi=
   return(wb)
 }
 
-# screenSh <- function(selector){
-#   fileName <- tempfile(pattern = "figureImage",
-#                        tmpdir = "",
-#                        fileext = "") %>% substr(.,2,nchar(.))
-#   if (is.null(selector)){
-#     shinyscreenshot::screenshot(filename=fileName, download=FALSE, server_dir = tempdir())
-#   } else {
-#     shinyscreenshot::screenshot(selector=selector, filename=fileName, download=FALSE, server_dir = tempdir())
-#   }
-#   file <- paste(tempdir(),"/",fileName,".png",sep="")
-#   return(file)
-# }
-
 screenSh <- function(p, zoom = 2, type="vis"){
   tmpdir = tempdir()
   fileName <- tempfile(pattern = "figureImage",
@@ -2186,7 +2173,12 @@ screenShot <- function(p, filename, type){
 
   # setting up the main directory
   #filename <- paste0(file.path(home,"downloads/"),filename)
-  filename <- paste0(file.path(home,"downloads"),"/",filename)
+  if ("downloads" %in% tolower(dir(home))){
+    filename <- paste0(file.path(home,"downloads"),"/",filename)
+  } else {
+    filename <- paste0(home,"/",filename)
+  }
+  
   plot2png(p, filename, zoom = 2, type=type, tmpdir = tempdir())
 
 }
@@ -2202,6 +2194,9 @@ plot2png <- function(p, filename, zoom = 2, type="vis", tmpdir){
            htmlwidgets::saveWidget(p, file=html_name)
          })
   webshot2::webshot(url = html_name, zoom = zoom, file = filename)#, verbose=FALSE)
+  popUpGeneric(title=NULL, type="success", color=c("#1d8fe1"),
+               subtitle=paste0("Plot was saved in the following path: ",filename),
+               btn_labels="OK", size="40%")
 }
 
 addScreenWb <- function(df, wb, width=14, height=8, dpi=75){