fix bug (issue #35)

CorrelAid · Aug 7, 2024 · b6b4f42 · b6b4f42
1 parent 92aad8a
commit b6b4f42
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/R/gen_table.R b/R/gen_table.R
@@ -78,6 +78,13 @@ gen_table_ <- function(name,
   #-----------------------------------------------------------------------------
   # Parameter processing
 
+  if (missing(database)) {
+
+    stop("It is mandatory to specifiy the 'database' parameter for 'gen_table()'.",
+         call. = FALSE)
+
+  }
+
   database <- match.arg(database)
 
   area <- match.arg(area)