Make new parameter 'clustersST' API compatible

rte-antares-rpackage · Jun 11, 2024 · facff5f · facff5f
1 parent a35d983
commit facff5f
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/R/utils_api.R b/R/utils_api.R
@@ -162,6 +162,15 @@ read_secure_json <- function(url, token = NULL, timeout = 60, config = list()) {
   )
 
   areasWithResClusters <- names(hasResClusters)[hasResClusters]
+
+  hasSTClusters <- unlist(
+    lapply(
+      read_secure_json(file.path(dataPath, "areas&depth=2"), ...),
+      function(x) any(grepl("details-STstorage-", names(x)))
+    )
+  )
+
+  areasWithSTClusters <- names(hasSTClusters)[hasSTClusters]
   # Available variables
   variables <- list()
 
@@ -212,6 +221,7 @@ read_secure_json <- function(url, token = NULL, timeout = 60, config = list()) {
       linksDef = linksDef,
       areasWithClusters = intersect(areasWithClusters, areaList),
       areasWithResClusters = intersect(areasWithResClusters, areaList),
+      areasWithSTClusters = intersect(areasWithSTClusters, areaList),
       variables = variables,
       parameters = params
     )