add api block

R/thematic_trimming.R

@@ -24,13 +24,35 @@
 #' }
 getThematicTrimming <- function(opts = simOptions()){
   stopifnot(inherits(opts, "simOptions"))
+  stopifnot(opts$antaresVersion>=800)
+
+  ##
+  # API bloc
+  ##
+  if(antaresRead:::is_api_study(opts = opts)){
+    # use endpoint from API "Get thematic trimming config"
+    endpoint_to_use <- "config/thematictrimming/form"
+    endpoint_to_use <- file.path(opts$study_id, 
+                                 endpoint_to_use)
+
+    thematic_vars <- api_get(opts = opts, 
+                             endpoint = endpoint_to_use)
+
+    return(thematic_vars)
+  }
+
+  ##
+  # Desktop
+  ##
 
   # read study to update opts meta data 
-  opts_study <- setSimulationPath(opts$studyPath, 
-                                  simulation = "input")
+  suppressWarnings(
+    opts_study <- setSimulationPath(opts$studyPath, 
+                                    simulation = "input")
+  )
 
-  # use global referentiel
-  ref_list_vars_thematic <- antaresRead:::pkgEnv$thematic
+  # use private referentiel
+  ref_list_vars_thematic <- pkgEnv$thematic
 
   # filter vars with version
   ref_list_vars_thematic <- ref_list_vars_thematic[version<=opts_study$antaresVersion,]

tests/testthat/test-thematic_timming.R

@@ -2,6 +2,8 @@
 path_study_test <- grep(pattern = "86", x = studyPathSV8, value = TRUE)
 opts_study_test <- setSimulationPath(path_study_test, simulation = "input")
 
+# NOTES : 
+  # In this study test there is no section [selection variables] 
 
 # test_that("Empty selection variables", {
 #   # template study 860 as no section