make functions more flexible!

CorrelAid · Jan 1, 2025 · 9736b65 · 9736b65
1 parent 9c5121c
commit 9736b65
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 4 deletions.
diff --git a/R/gen_cube.R b/R/gen_cube.R
@@ -72,7 +72,8 @@ gen_cube_ <- function(name,
                       classifyingvariable3 = NULL,
                       classifyingkey3 = NULL,
                       stand = NULL,
-                      language = Sys.getenv("RESTATIS_LANG")) {
+                      language = Sys.getenv("RESTATIS_LANG"),
+                      ...) {
 
   area <- match.arg(area)
   database <- match.arg(database)
@@ -116,7 +117,8 @@ gen_cube_ <- function(name,
                       classifyingkey3 = classifyingkey3,
                       stand = stand,
                       language = language,
-                      job = FALSE)
+                      job = FALSE,
+                      ...)
 
   #-------------------------------------------------------------------------------
 

diff --git a/R/gen_table.R b/R/gen_table.R
@@ -75,7 +75,8 @@ gen_table_ <- function(name,
                        stand = NULL,
                        language = Sys.getenv("RESTATIS_LANG"),
                        job = FALSE,
-                       all_character = TRUE) {
+                       all_character = TRUE,
+                       ...) {
 
   #-----------------------------------------------------------------------------
   # Parameter processing
@@ -131,7 +132,8 @@ gen_table_ <- function(name,
                       stand = stand,
                       language = language,
                       format = "ffcsv",
-                      job = FALSE)
+                      job = FALSE,
+                      ...)
 
   #-----------------------------------------------------------------------------
   # Data processing