fix: ignore_args for R native file extensions

vusaverse · Dec 8, 2023 · 5354bb7 · 5354bb7
1 parent 397b073
commit 5354bb7
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/helperfunctions.R b/R/helperfunctions.R
@@ -35,14 +35,14 @@ handle_file_upload <- function(input, output, session) {
 
   # Map file extensions to reading functions
   read_funcs <- list(
-    RData = readRDS,
+    RData = ignore_args(readRDS),
     asc = ignore_args(utils::read.table),
     csv = function(path, sep, header) utils::read.csv(path, sep = sep, header = header),
     feather = ignore_args(feather::read_feather),
     fst = ignore_args(fst::read_fst),
     parquet = ignore_args(arrow::read_parquet),
-    rda = readRDS,
-    rds = readRDS,
+    rda = ignore_args(readRDS),
+    rds = ignore_args(readRDS),
     sav = ignore_args(haven::read_sav),
     tsv = function(path, sep, header) utils::read.delim(path, sep = sep, header = header),
     txt = function(path, sep, header) utils::read.delim(path, sep = sep, header = header),