CRAN submission 5.2.1

Author: massimoaria

NEWS

@@ -1,3 +1,11 @@
+bibliometrix V.5.2.1 (Release date: 2025-12-11)
+
+Changes:
+
+* Removed old geemini models 1.5 and 2.0 from biblioAI
+* Solved issue with internet connection checking in MS Windows systems
+
+
 bibliometrix V.5.2.0 (Release date: 2025-11-04)
 
 Features:

NEWS.md

@@ -1,6 +1,9 @@
-# bibliometrix (development version)
+# bibliometrix V.5.2.1 (Release date: 2025-12-11)
 
-# bibliometrix 5.2.0
+Changes:
+
+* Removed old geemini models 1.5 and 2.0 from biblioAI
+* Solved issue with internet connection checking in MS Windows systems
 
 # bibliometrix V.5.2.0 (Release date: 2025-11-04)
 

README.md

@@ -522,7 +522,7 @@ dplyr::glimpse(authorInfo)
 #> $ affiliation_raw             <chr> "Department of Economics and Statistics, Università degli Studi di Napoli Federico…
 #> $ source_doi                  <chr> "10.1016/j.joi.2017.08.007"
 #> $ source_title                <chr> "bibliometrix : An R-tool for comprehensive science mapping analysis"
-#> $ query_timestamp             <dttm> 2025-11-07 18:40:48
+#> $ query_timestamp             <dttm> 2025-12-11 09:08:17
 ```
 
 This function provides comprehensive author profiles including:

inst/biblioshiny/helpContent.R

@@ -10247,7 +10247,7 @@ To ensure the functionality of Biblioshiny,
         label = "Select the Gemini Model",
         choices = c(
           "Gemini 2.5 Flash" = "2.5-flash",
-          "Gemini 2.5 Flash Lite" = "2.5-flash-lite",
+          "Gemini 2.5 Flash Lite" = "2.5-flash-lite"
           # "Gemini 2.0 Flash" = "2.0-flash",
           # "Gemini 2.0 Flash Lite" = "2.0-flash-lite",
           # "Gemini 1.5 Flash" = "1.5-flash",

inst/biblioshiny/server.R

@@ -235,6 +235,11 @@ sidebar <- shinydashboardPlus::dashboardSidebar(
       "Info",
       tabName = "info",
       icon = fa_i(name = "circle-info"),
+      menuSubItem(
+        "SAAS Workflow",
+        tabName = "saas",
+        icon = fa_i("project-diagram")
+      ),
       menuSubItem(
         "Biblio AI",
         tabName = "biblioAI",
@@ -808,6 +813,19 @@ body <- dashboardBody(
         )
       )
     ),
+    tabItem(
+      "saas",
+      fluidPage(
+        fluidRow(
+          column(1),
+          column(
+            10,
+            HTML(helpContent()$saas)
+          ),
+          column(1)
+        )
+      )
+    ),
     tabItem(
       "biblioAI",
       fluidPage(

inst/biblioshiny/ui.R

@@ -128,9 +128,6 @@ total_downloads <- function(
     pkg_name
   )
 
-  # if (!is_Online(timeout = 1, url)) {
-  #   return(NA)
-  # }
   if (!check_online(host = url, timeout = 1, method = "http")) {
     return(NA)
   }
@@ -2661,7 +2658,6 @@ check_online <- function(
 
 notifications <- function() {
   ## check connection and download notifications
-  #online <- is_online()
   online <- check_online(host = "www.bibliometrix.org")
   location <- "https://www.bibliometrix.org/bs_notifications/biblioshiny_notifications.csv"
   notifOnline <- NULL
@@ -2744,7 +2740,8 @@ notifications <- function() {
 }
 
 is_Online <- function(timeout = 3, url = "https://www.bibliometrix.org") {
-  RCurl::url.exists(url, timeout = timeout)
+  #RCurl::url.exists(url, timeout = timeout)
+  check_online(host = url, timeout = timeout, method = "http")
 }
 
 initial <- function(values) {