Merge pull request #69 from rte-antares-rpackage/fix_createCluter

fix createCluster
rte-antares-rpackage · Feb 10, 2023 · 724bf5b · 724bf5b
2 parents b17da65 + 447e4ed
commit 724bf5b
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -4,6 +4,7 @@ BUGFIXES :
 
 * Fix case sensitivity for `editCluster()` in API mode
 * Fix opts returned (proper new study_id) when using `createVariant()`
+* Fix case sensitivity for groups in `createCluster()` and `createClusterRES()`
 
 
 

diff --git a/R/createCluster.R b/R/createCluster.R
@@ -160,7 +160,7 @@ createCluster <- function(area,
                      "Other 2",
                      "Other 3",
                      "Other 4")
-  if (!is.null(group) && !group %in% thermal_group) 
+  if (!is.null(group) && !group %in% tolower(thermal_group))
     warning(
       "Group: '", group, "' is not a valid name recognized by Antares,",
       " you should be using one of: ", paste(thermal_group, collapse = ", ")
@@ -202,7 +202,7 @@ createClusterRES <- function(area,
                         "Other RES 2",
                         "Other RES 3",
                         "Other RES 4")
-  if (!is.null(group) && !group %in% renewables_group) 
+  if (!is.null(group) && !group %in% tolower(renewables_group))
     warning(
       "Group: '", group, "' is not a valid name recognized by Antares,",
       " you should be using one of: ", paste(renewables_group, collapse = ", ")
Original file line number	Diff line number	Diff line change
Expand Up		@@ -4,6 +4,7 @@ BUGFIXES :

		* Fix case sensitivity for `editCluster()` in API mode
		* Fix opts returned (proper new study_id) when using `createVariant()`
		* Fix case sensitivity for groups in `createCluster()` and `createClusterRES()`



Expand Down