From 9736b653c29bfa5e73899aba333826b6d1849ad4 Mon Sep 17 00:00:00 2001 From: buhly Date: Wed, 1 Jan 2025 21:29:45 +0100 Subject: [PATCH] make functions more flexible! --- R/gen_cube.R | 6 ++++-- R/gen_table.R | 6 ++++-- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/R/gen_cube.R b/R/gen_cube.R index 50b1b7a..120a14f 100644 --- 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 index a1d23a9..ac738bc 100644 --- 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