add sanity check to showAreaAndBarPlots

fbenke-pik · Feb 9, 2024 · 8327b2b · 8327b2b
1 parent e3cc350
commit 8327b2b
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/R/showAreaAndBarPlots.R b/R/showAreaAndBarPlots.R
@@ -98,6 +98,11 @@ showAreaAndBarPlots <- function(
     return(invisible(NULL))
   }
 
+  if (!mainReg %in% unique(d$region)) {
+    warning("Main region not found in data. Nothing to plot.", call. = FALSE)
+    return(invisible(NULL))
+  }
+
   switch(
     orderVars,
     mean = {