use ... in fload() instead of explicit headers argument

Author: eddelbuettel

ChangeLog

@@ -1,3 +1,9 @@
+2020-12-07  Dirk Eddelbuettel  <edd@debian.org>
+
+	* R/fload.R (fload): Use ... instead of explicit header argument
+	* R/utils.R (.prep_input): Support ... use
+	* man/fparse.Rd: Document ... use
+
 2020-12-04  Dirk Eddelbuettel  <edd@debian.org>
 
         * DESCRIPTION (Version, Date): Roll version and date
@@ -32,7 +38,7 @@
 2020-10-28  Dirk Eddelbuettel  <edd@debian.org>
 
         * DESCRIPTION (Version, Date): Roll version and date
-or
+
 	* inst/tinytest/test_misc.R: Expand test coverage
 	* src/internal-utils.cpp: Mark one line #nocov
 	* R/init.R (.onAttach): Mark six lines #nocov

DESCRIPTION

@@ -19,4 +19,4 @@ Suggests: bit64, tinytest
 URL: https://github.com/eddelbuettel/rcppsimdjson/
 BugReports: https://github.com/eddelbuettel/rcppsimdjson/issues
 RoxygenNote: 7.1.1
-Encoding: UTF-8
+Encoding: UTF-8

R/fload.R

@@ -16,9 +16,8 @@
 #' @param compressed_download Whether to request server-side compression on
 #'   the downloaded document, default: \code{FALSE}
 #'
-#' @param headers Optional header content which can used to pass an API token,
-#'   default is query \code{getOption} for key \sQuote{RcppSimdJson.header} with
-#'   fallback of \code{NULL}
+#' @param ... Optional arguments which can be use \emph{e.g.} to pass additional
+#' header settings
 #'
 #' @examples
 #' # load JSON files ===========================================================
@@ -68,7 +67,7 @@ fload <- function(json,
                   temp_dir = tempdir(),
                   keep_temp_files = FALSE,
                   compressed_download = FALSE,
-                  headers = getOption("RcppSimdJson.header", default = NULL)) {
+                  ...) {
     # validate arguments =======================================================
     if (!.is_valid_json_arg(json)) {
         stop("`json=` must be a non-empty character vector, raw vector, or a list containing raw vectors.")
@@ -162,7 +161,7 @@ fload <- function(json,
                              temp_dir = temp_dir,
                              compressed_download = compressed_download,
                              verbose = verbose,
-                             headers = headers)
+                             ...)
     if (!keep_temp_files) {
         on.exit(unlink(diagnosis$input[diagnosis$is_from_url]), add = TRUE)
     }

R/utils.R

@@ -17,7 +17,8 @@
                         temp_dir,
                         compressed_download,
                         verbose,
-                        headers = NULL) {
+                        headers = NULL,
+                        ...) {
     input[!is.na(input)] <- path.expand(input[!is.na(input)])
     diagnosis <- .diagnose_input(input)
     .headers <- headers