mirror of
https://github.com/agdamsbo/REDCapCAST.git
synced 2024-11-22 21:40:23 +01:00
Adding in recursive call to process_user_input for 'response'
Also removing partial dependency on httr
This commit is contained in:
parent
1053329a62
commit
4389f2bca6
@ -36,18 +36,6 @@ process_user_input.character <- function(x, ...) {
|
|||||||
|
|
||||||
process_user_input.response <- function(x, ...) {
|
process_user_input.response <- function(x, ...) {
|
||||||
|
|
||||||
if (!requireNamespace("httr", quietly = TRUE)) {
|
process_user_input(rawToChar(x$content))
|
||||||
stop(
|
|
||||||
"The package 'httr' is needed to convert ",
|
|
||||||
deparse(substitute(x)),
|
|
||||||
" into a data frame.",
|
|
||||||
"\n Either install 'httr' or pass ",
|
|
||||||
deparse(substitute(x)),
|
|
||||||
" as a 'data.frame'.",
|
|
||||||
call. = FALSE
|
|
||||||
)
|
|
||||||
}
|
|
||||||
|
|
||||||
httr::content(x, as = "text")
|
|
||||||
|
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user