From 81b2269c2844f6d2f97508946d75467f5cfc25ba Mon Sep 17 00:00:00 2001 From: Hause Lin Date: Sun, 28 Apr 2024 18:52:37 -0400 Subject: [PATCH] Add don't run --- R/utils.R | 2 ++ man/resp_process.Rd | 2 ++ 2 files changed, 4 insertions(+) diff --git a/R/utils.R b/R/utils.R index 9bfc6fb..9e66e58 100644 --- a/R/utils.R +++ b/R/utils.R @@ -7,11 +7,13 @@ #' @export #' #' @examples +#' \dontrun{ #' resp <- list_models("resp") #' resp_process(resp, "df") # parse response to dataframe/tibble #' resp_process(resp, "jsonlist") # parse response to list #' resp_process(resp, "raw") # parse response to raw string #' resp_process(resp, "resp") # return input response object +#' } resp_process <- function(resp, output = c("df", "jsonlist", "raw", "resp")) { if (is.null(resp) || resp$status_code != 200) { diff --git a/man/resp_process.Rd b/man/resp_process.Rd index b36e49e..268a375 100644 --- a/man/resp_process.Rd +++ b/man/resp_process.Rd @@ -18,9 +18,11 @@ A data frame, json list, raw or httr2 response object. Process httr2 response object. } \examples{ +\dontrun{ resp <- list_models("resp") resp_process(resp, "df") # parse response to dataframe/tibble resp_process(resp, "jsonlist") # parse response to list resp_process(resp, "raw") # parse response to raw string resp_process(resp, "resp") # return input response object } +}