add Bali Snapper case study

Blue-Matter · May 17, 2024 · e69c0fa · e69c0fa
1 parent 2747024
commit e69c0fa
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/inst/shiny_apps/FPAT/Data/Casestudies/Bali_Red_Snapper.xlsx b/inst/shiny_apps/FPAT/Data/Casestudies/Bali_Red_Snapper.xlsx
diff --git a/inst/shiny_apps/FPAT/load.R b/inst/shiny_apps/FPAT/load.R
@@ -26,7 +26,8 @@ Load_UI <- function(id, label="Load") {
           fluidRow(
             column(4,
                    tipify(placement ='top',
-                          selectInput(ns("Select"),choices=c("Costa Rica - Multi-species"),label=NULL, width='250px'),
+                          selectInput(ns("Select"),choices=c('Bali Red Snapper',
+                                                             "Costa Rica - Multi-species"),label=NULL, width='250px'),
                           title='Select an existing FPAT case study')
             ),
             column(6,
@@ -53,6 +54,9 @@ Load_Server <- function(id, Info, Toggles) {
                    if(input$Select=="Costa Rica - Multi-species")
                      Info$file <- list(datapath = "./Data/Casestudies/Demo_1.xlsx")
 
+                   if(input$Select=='Bali Red Snapper')
+                     Info$file <- list(datapath = "./Data/Casestudies/Bali_Red_Snapper.xlsx")
+
                    AM(Info$file)
                    fetchOM(Info, Toggles, session)