diff --git a/R/gen_table.R b/R/gen_table.R index 67a14ef..6fb243b 100644 --- a/R/gen_table.R +++ b/R/gen_table.R @@ -75,8 +75,7 @@ gen_table_ <- function(name, stand = NULL, language = Sys.getenv("GENESIS_LANG"), job = FALSE, - all_character = TRUE, - overwrite_url = NULL) { + all_character = TRUE) { #----------------------------------------------------------------------------- # Parameter processing @@ -88,14 +87,6 @@ gen_table_ <- function(name, } - if (!is.null(overwrite_url) & - (!is.character(overwrite_url) | length(overwrite_url) != 1)) { - - stop("The parameter 'overwrite_url' has to be of type 'character' and of length 1.", - call. = FALSE) - - } - database <- match.arg(database) area <- match.arg(area) @@ -141,8 +132,7 @@ gen_table_ <- function(name, stand = stand, language = language, format = "ffcsv", - job = FALSE, - overwrite_url = overwrite_url) + job = FALSE) #----------------------------------------------------------------------------- @@ -166,8 +156,7 @@ gen_table_ <- function(name, stand = stand, language = language, format = "ffcsv", - job = job, - overwrite_url = overwrite_url) + job = job) #----------------------------------------------------------------------------- @@ -191,8 +180,7 @@ gen_table_ <- function(name, stand = stand, language = language, format = "ffcsv", - job = job, - overwrite_url = overwrite_url) + job = job) #-----------------------------------------------------------------------------