Removed Gemini models 1.5 and 2.0

Author: massimoaria

inst/biblioshiny/biblioAI.R

@@ -3,7 +3,7 @@ gemini_ai <- function(
   image = NULL,
   docs = NULL,
   prompt = "Explain these images",
-  model = "2.0-flash",
+  model = "2.5-flash",
   image_type = "png",
   retry_503 = 5,
   api_key = NULL,
@@ -259,7 +259,7 @@ setGeminiAPI <- function(api_key) {
   apiCheck <- gemini_ai(
     image = NULL,
     prompt = "Hello",
-    model = "2.0-flash",
+    model = "2.5-flash",
     image_type = "png",
     retry_503 = 5,
     api_key = api_key
@@ -341,7 +341,7 @@ loadGeminiModel = function(file) {
   if (file.exists(file)) {
     model <- readLines(file, warn = FALSE)
   } else {
-    model <- c("2.0-flash", "medium")
+    model <- c("2.5-flash", "medium")
   }
   if (length(model == 1)) {
     model <- c(model, "medium")

inst/biblioshiny/server.R

@@ -10248,10 +10248,10 @@ To ensure the functionality of Biblioshiny,
         choices = c(
           "Gemini 2.5 Flash" = "2.5-flash",
           "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",
-          "Gemini 1.5 Flash Lite" = "1.5-flash-8b"
+          # "Gemini 2.0 Flash" = "2.0-flash",
+          # "Gemini 2.0 Flash Lite" = "2.0-flash-lite",
+          # "Gemini 1.5 Flash" = "1.5-flash",
+          # "Gemini 1.5 Flash Lite" = "1.5-flash-8b"
         ),
         selected = ifelse(
           is.null(values$gemini_api_model),
@@ -10280,51 +10280,51 @@ To ensure the functionality of Biblioshiny,
           tags$br(),
           "Latency time: Low"
         ))
-      ),
-      conditionalPanel(
-        condition = "input.gemini_api_model == '2.0-flash-lite'",
-        helpText(strong("Free Tier Rate Limits:")),
-        helpText(em(
-          "Request per Minutes: 30",
-          tags$br(),
-          "Requests per Day: 1500",
-          tags$br(),
-          "Latency time: Low"
-        ))
-      ),
-      conditionalPanel(
-        condition = "input.gemini_api_model == '2.0-flash'",
-        helpText(strong("Free Tier Rate Limits:")),
-        helpText(em(
-          "Request per Minutes: 15",
-          tags$br(),
-          "Requests per Day: 1500",
-          tags$br(),
-          "Latency time: Medium"
-        ))
-      ),
-      conditionalPanel(
-        condition = "input.gemini_api_model == '1.5-flash'",
-        helpText(strong("Free Tier Rate Limits:")),
-        helpText(em(
-          "Request per Minutes: 15",
-          tags$br(),
-          "Requests per Day: 1500",
-          tags$br(),
-          "Latency time: Medium"
-        ))
-      ),
-      conditionalPanel(
-        condition = "input.gemini_api_model == '1.5-flash-8b'",
-        helpText(strong("Free Tier Rate Limits:")),
-        helpText(em(
-          "Request per Minutes: 15",
-          tags$br(),
-          "Requests per Day: 1500",
-          tags$br(),
-          "Latency time: Low"
-        ))
-      )
+      ) #,
+      # conditionalPanel(
+      #   condition = "input.gemini_api_model == '2.0-flash-lite'",
+      #   helpText(strong("Free Tier Rate Limits:")),
+      #   helpText(em(
+      #     "Request per Minutes: 30",
+      #     tags$br(),
+      #     "Requests per Day: 1500",
+      #     tags$br(),
+      #     "Latency time: Low"
+      #   ))
+      # ),
+      # conditionalPanel(
+      #   condition = "input.gemini_api_model == '2.0-flash'",
+      #   helpText(strong("Free Tier Rate Limits:")),
+      #   helpText(em(
+      #     "Request per Minutes: 15",
+      #     tags$br(),
+      #     "Requests per Day: 1500",
+      #     tags$br(),
+      #     "Latency time: Medium"
+      #   ))
+      # ),
+      # conditionalPanel(
+      #   condition = "input.gemini_api_model == '1.5-flash'",
+      #   helpText(strong("Free Tier Rate Limits:")),
+      #   helpText(em(
+      #     "Request per Minutes: 15",
+      #     tags$br(),
+      #     "Requests per Day: 1500",
+      #     tags$br(),
+      #     "Latency time: Medium"
+      #   ))
+      # ),
+      # conditionalPanel(
+      #   condition = "input.gemini_api_model == '1.5-flash-8b'",
+      #   helpText(strong("Free Tier Rate Limits:")),
+      #   helpText(em(
+      #     "Request per Minutes: 15",
+      #     tags$br(),
+      #     "Requests per Day: 1500",
+      #     tags$br(),
+      #     "Latency time: Low"
+      #   ))
+      # )
     )
   })
 

inst/biblioshiny/ui.R

@@ -10994,14 +10994,4 @@ ui <- tagList(
   scrollToTopButton()
 )
 
-# ui <- shinydashboardPlus::dashboardPage(
-#   # shinyjs::useShinyjs(),
-#   header = header,
-#   sidebar = sidebar,
-#   body = body,
-#   # controlbar = controlbar,
-#   footer = NULL,
-#   options = list(sidebarExpandOnHover = TRUE),
-#   #scrollToTop = TRUE
-# )
 # END ----