fix / ctrl if synthetic results are available

rte-antares-rpackage · Sep 29, 2021 · cab66ac · cab66ac
1 parent 90e0a96
commit cab66ac
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/inst/application/src/server/01_set_read_data.R b/inst/application/src/server/01_set_read_data.R
@@ -315,7 +315,12 @@ observe({
         updateCheckboxInput(session, "read_hydroStorage", antaresViz:::.getLabelLanguage("hydroStorage", current_language), FALSE)
       } else {
         sel <- isolate({input$read_type_mcYears})
-        choices <- c("synthetic", "all", "custom")
+        if(opts$synthesis){
+          choices <- c("synthetic", "all", "custom")
+        } else {
+          choices <- c("all", "custom")
+          if(!sel %in% choices) sel <- "all"
+        }
         names(choices) <- sapply(choices, function(x){
           antaresViz:::.getLabelLanguage(x, current_language)
         })