|
|
@ -64,7 +64,14 @@ render_json <- function(splash_obj = splash_local, url, base_url=NULL, quality=7 |
|
|
|
if (!missing(save_args)) params$save_args <- jsonlite::unbox(save_args) |
|
|
|
if (!missing(load_args)) params$load_args <- jsonlite::unbox(load_args) |
|
|
|
|
|
|
|
res <- httr::GET(splash_url(splash_obj), path="render.json", encode="json", query=params) |
|
|
|
if (is.null(splash_obj$user)) { |
|
|
|
res <- httr::GET(splash_url(splash_obj), path="render.json", encode="json", query=params) |
|
|
|
} else { |
|
|
|
res <- httr::GET( |
|
|
|
splash_url(splash_obj), path="render.json", encode="json", query=params, |
|
|
|
httr::authenticate(splash_obj$user, splash_obj$pass) |
|
|
|
) |
|
|
|
} |
|
|
|
|
|
|
|
httr::stop_for_status(res) |
|
|
|
|
|
|
|