Merge pull request #568 from massimoaria/develop

Develop

Author: massimoaria

inst/biblioshiny/biblioAI.R

@@ -759,7 +759,7 @@ geminiSave <- function(values, activeTab){
 ## Summarize document with Gemini AI ---
 summaryAI <- function(values, i, model) {
   # Construct the prompt for Gemini AI
-  prompt <- paste0("Summarize the content of the following publication:",
+  prompt <- paste0("Summarize the content of the following publication",
                    " in no more than 250 words. ",
                    "Title: ", values$M$TI[i],
                    "Authors: ", values$M$AU[i],

inst/biblioshiny/libraries.R

@@ -1,11 +1,5 @@
 # ### packages for biblishiny()
 libraries <- function() {
-  is_windows <- tolower(Sys.info()[["sysname"]]) == "windows"
-  if (!is_windows & !require(pak, quietly = TRUE)) {
-    install.packages("pak")
-    if (!require(pak, quietly = TRUE)) return(FALSE)
-  }
-  
   all_ok <- TRUE
 
   parse_pkg <- function(pkg_str) {
@@ -42,11 +36,7 @@ libraries <- function() {
     }
 
     if (need_install) {
-      if (is_windows) {
-        install.packages(pkg)
-      } else {
-        pak::pkg_install(pkg, ask= FALSE)
-      }
+      install.packages(pkg)
     }
 
     return(require(pkg, character.only = TRUE, quietly = TRUE))

inst/biblioshiny/server.R

@@ -3225,7 +3225,7 @@ To ensure the functionality of Biblioshiny,
     g <- MGCDocuments()
     TAB <- values$TABGlobDoc
     TAB$DOI<- paste0('<a href=\"https://doi.org/',TAB$DOI,'\" target=\"_blank\">',TAB$DOI,'</a>')
-    DTformat(TAB, nrow=10, filename="Most_Global_Cited_Documents", pagelength=TRUE, left=NULL, right=NULL, numeric=4:5, dom=FALSE, 
+    DTformat(TAB, nrow=10, filename="Most_Global_Cited_Documents", pagelength=TRUE, left=NULL, right=NULL, numeric=5:6, dom=FALSE, 
              size='100%', filter="none", columnShort=NULL, columnSmall=NULL, round=2, title="", button=TRUE, escape=FALSE, 
              selection=FALSE, summary="documents")
   })
@@ -3301,8 +3301,7 @@ To ensure the functionality of Biblioshiny,
     TAB$DOI <- paste0('<a href=\"https://doi.org/',TAB$DOI,'\" target=\"_blank\">',TAB$DOI,'</a>')
 
     names(TAB)[c(1,4:8)] <- c("Paper","Local Citations", "Global Citations","LC/GC Ratio (%)", "Normalized Local Citations","Normalized Global Citations")
-    print(names(TAB))
-    DTformat(TAB, nrow=10, filename="Most_Local_Cited_Documents", pagelength=TRUE, left=NULL, right=NULL, numeric=6:8, dom=FALSE, 
+    DTformat(TAB, nrow=10, filename="Most_Local_Cited_Documents", pagelength=TRUE, left=NULL, right=NULL, numeric=7:9, dom=FALSE, 
              size='100%', filter="none", columnShort=NULL, columnSmall=NULL, round=2, title="", button=TRUE, escape=FALSE, 
              selection=FALSE, summary="documents")
   })

inst/biblioshiny/ui.R

@@ -1655,14 +1655,14 @@ body <- dashboardBody(
             tabPanel(
               "Global Profile",
               div(
-                #style = "height: 550px; overflow-y: scroll; border: 1px solid #ccc; padding: 10px; background-color: #f9f9f9;",
+                # style = "height: 700px; overflow-y: scroll; border: 1px solid #ccc; padding: 10px; background-color: #f9f9f9;",
                 shinycssloaders::withSpinner(uiOutput("AuthorBioPageUI"))
               )
             ),
             tabPanel(
               "Local Profile",
               div(
-                #style = "height: 550px; overflow-y: scroll; border: 1px solid #ccc; padding: 10px; background-color: #f9f9f9;",
+                # style = "height: 700px; overflow-y: scroll; border: 1px solid #ccc; padding: 10px; background-color: #f9f9f9;",
                 shinycssloaders::withSpinner(uiOutput("AuthorLocalProfileUI"))
               )
             ), 

inst/biblioshiny/utils.R

@@ -355,12 +355,55 @@ DTformat <- function(
   initComplete <- NULL
   # Summary Button
   if (summary=="documents" & "Paper" %in% names(df)) {
+    
     df <- df %>%
-      mutate(Summary = paste0('<button id="custom_btn" onclick="Shiny.onInputChange(\'button_id\', \'', Paper, '\')">▶️</button>')) %>%
+      mutate(Summary = paste0(
+        '<div style="display: flex; justify-content: center; align-items: center; height: 100%; width: 100%;">',
+        '<button id="custom_btn" style="',
+        'width: 24px; height: 24px; ',
+        'border-radius: 50%; ',
+        'border: none; ',
+        'background: linear-gradient(135deg, #4285f4 0%, #1976d2 100%); ',
+        'color: white; ',
+        'cursor: pointer; ',
+        'display: flex; ',
+        'align-items: center; ',
+        'justify-content: center; ',
+        'box-shadow: 0 2px 4px rgba(0,0,0,0.2); ',
+        'transition: all 0.3s ease; ',
+        '" ',
+        'onmouseover="this.style.transform=\'scale(1.1)\'; this.style.boxShadow=\'0 4px 8px rgba(0,0,0,0.3)\';" ',
+        'onmouseout="this.style.transform=\'scale(1)\'; this.style.boxShadow=\'0 2px 4px rgba(0,0,0,0.2)\';" ',
+        'onclick="Shiny.onInputChange(\'button_id\', \'', Paper, '\')">',
+        '<i class="fas fa-search-plus" style="font-size: 14px;"></i>',
+        '</button>',
+        '</div>'
+      )) %>%
       select(Summary, everything())
   } else if (summary=="historiograph" & "Paper" %in% names(df)) {
     df <- df %>%
-      mutate(Summary = paste0('<button id="custom_btn" onclick="Shiny.onInputChange(\'button_id\', \'', SR, '\')">▶️</button>')) %>%
+      mutate(Summary = paste0(
+        '<div style="display: flex; justify-content: center; align-items: center; height: 100%; width: 100%;">',
+        '<button id="custom_btn" style="',
+        'width: 32px; height: 32px; ',
+        'border-radius: 50%; ',
+        'border: none; ',
+        'background: linear-gradient(135deg, #4285f4 0%, #1976d2 100%); ',
+        'color: white; ',
+        'cursor: pointer; ',
+        'display: flex; ',
+        'align-items: center; ',
+        'justify-content: center; ',
+        'box-shadow: 0 2px 4px rgba(0,0,0,0.2); ',
+        'transition: all 0.3s ease; ',
+        '" ',
+        'onmouseover="this.style.transform=\'scale(1.1)\'; this.style.boxShadow=\'0 4px 8px rgba(0,0,0,0.3)\';" ',
+        'onmouseout="this.style.transform=\'scale(1)\'; this.style.boxShadow=\'0 2px 4px rgba(0,0,0,0.2)\';" ',
+        'onclick="Shiny.onInputChange(\'button_id\', \'', SR, '\')">',
+        '<i class="fas fa-search-plus" style="font-size: 14px;"></i>',
+        '</button>',
+        '</div>'
+      )) %>%
       select(Summary, everything()) %>% 
       select(-SR)
   } else if (summary=="authors" & "Author" %in% names(df)) {