From 379b1960f1598d8a699b7d4ffbbd94ff135b309b Mon Sep 17 00:00:00 2001
From: kemihak <kamel.kemiha@rte-france.com>
Date: Wed, 13 Nov 2024 21:40:00 +0100
Subject: [PATCH] Add control on clustersRes before setting areas to "all"

---
 R/readAntares.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/readAntares.R b/R/readAntares.R
index 11f75659..a6ea598a 100644
--- a/R/readAntares.R
+++ b/R/readAntares.R
@@ -911,7 +911,7 @@ readAntaresAreas <- function(areas, links = TRUE, clusters = TRUE, clustersRes =
   if ("mcYears" %in% unlist(select) & is.null(mcYears)) mcYears <- "all"
   
   # If all arguments are NULL, import all areas
-  if (is.null(areas) & is.null(links) & is.null(clusters) & is.null(districts) & is.null(clustersST)) {
+  if (is.null(areas) & is.null(links) & is.null(clusters) & is.null(districts) & is.null(clustersRes) & is.null(clustersST)) {
     areas <- "all"
   }