check incoming parameters to kernel_api

ref #396
OuhscBbmc · Jul 19, 2022 · e7aa6ff · e7aa6ff
1 parent 3bab1fc
commit e7aa6ff
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/R/kernel-api.R b/R/kernel-api.R
@@ -46,8 +46,16 @@ kernel_api <- function(
   content_type        = "text/csv"
   ) {
 
+  checkmate::assert_character(redcap_uri    , len = 1, any.missing = FALSE, null.ok = FALSE)
+  checkmate::assert_character(encoding      , len = 1, any.missing = FALSE, null.ok = FALSE)
+  checkmate::assert_character(content_type  , len = 1, any.missing = FALSE, null.ok = FALSE)
+
   start_time <- Sys.time()
 
+  # if (httr::http_error(redcap_uri)) {
+  #   stop("The url `", redcap_uri, "` is not found or throws an error.")
+  # }
+
   result <- httr::POST(
     url     = redcap_uri,
     body    = post_body,