Update gen_table.R

CorrelAid · Sep 27, 2024 · bf9476f · bf9476f
1 parent f52d507
commit bf9476f
Showing 1 changed file with 4 additions and 16 deletions.
diff --git 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)
 
   #-----------------------------------------------------------------------------