fix side effects from antaresRead function (readClusterDesc, ...) (#178)

* fix side effects from antaresRead function (readClusterDesc, ...) * update newsmd
rte-antares-rpackage · Jul 12, 2024 · e01e841 · e01e841
1 parent 6c165de
commit e01e841
Show file tree

Hide file tree

Showing 3 changed files with 2 additions and 16 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -19,6 +19,7 @@ NEW FEATURES (Antares v8.8) :
 BUGFIXES :  
 
 * `createBindingConstraint()` in API mode (for study <v870) created with "hourly" timeStep all the time
+* side effects with `readClusterDesc()` / `readClusterResDesc()` / `readClusterSTDesc()` 
 
 
 # antaresEditObject 0.7.0 

diff --git a/R/removeArea.R b/R/removeArea.R
@@ -215,7 +215,7 @@ checkRemovedArea <- function(area, all_files = TRUE, opts = antaresRead::simOpti
   # Cluster
   bc_not_remove_cluster <- character(0)
   clusters <- readClusterDesc(opts = opts)
-  clusters_area <- clusters[clusters$area == name, c("area", "cluster")]
+  clusters_area <- clusters[clusters$area == name,]
   if (nrow(clusters_area) > 0) {  
     bc_not_remove_cluster <- detect_pattern_in_binding_constraint(pattern = paste0(clusters_area$area, ".", clusters_area$cluster), opts = opts)
   }

diff --git a/tests/testthat/test-createCluster.R b/tests/testthat/test-createCluster.R
@@ -106,21 +106,6 @@ test_that("Create cluster with pollutants params (new feature v8.6)",{
 
   createArea(name = "test")
 
-  test_that("Create cluster default call (new feature v8.6)",{
-    # default call now create without pollutants
-    createCluster(area = getAreas()[1],
-                  cluster_name = "cluster_default",
-                  overwrite = TRUE)
-
-    res_cluster <- antaresRead::readClusterDesc()
-
-    pollutants_names <- names(antaresEditObject::list_pollutants_values())
-
-    # check default values 
-    testthat::expect_false(all(
-      pollutants_names %in% names(res_cluster)))
-  })
-
   test_that("Create cluster with bad parameter pollutant",{
     bad_pollutants_param <- "not_a_list"