Runs an app in a subprocess, using callr::r_session.
new_app_process(
app,
port = NULL,
opts = server_opts(remote = TRUE),
start = FALSE,
auto_start = TRUE,
process_timeout = NULL,
callr_opts = NULL
)
webfakes_app
object, the web app to run.
Port to use. By default the OS assigns a port.
Server options. See server_opts()
for the defaults.
Whether to start the web server immediately. If this is
FALSE
, and auto_start
is TRUE
, then it is started as neeed.
Whether to start the web server process automatically.
If TRUE
and the process is not running, then $start()
,
$get_port()
and $url()
start the process.
How long to wait for the subprocess to start, in milliseconds.
Options to pass to callr::r_session_options()
when setting up the subprocess.
A webfakes_app_process
object.
The webfakes_app_process
class has the following methods:
envvars
: Named list of environment variables. The {url}
substring
is replaced by the URL of the app.
path
: Path to return the URL for.
query
: Additional query parameters, a named list, to add to the URL.
get_app()
returns the app object.
get_port()
returns the port the web server is running on.
stop()
stops the web server, and also the subprocess. If the error
log file is not empty, then it dumps its contents to the screen.
get_state()
returns a string, the state of the web server:
"not running"
the server is not running (because it was stopped
already).
"live"
means that the server is running.
"dead"
means that the subprocess has quit or crashed.
local_env()
sets the given environment variables for the duration of
the app process. It resets them in $stop()
. Webfakes replaces {url}
in the value of the environment variables with the app URL, so you can
set environment variables that point to the app.
url()
returns the URL of the web app. You can use the path
parameter to return a specific path.
local_app_process()
for automatically cleaning up the
subprocess.
app <- new_app()
app$get("/foo", function(req, res) {
res$send("Hello world!")
})
proc <- new_app_process(app)
url <- proc$url("/foo")
resp <- curl::curl_fetch_memory(url)
cat(rawToChar(resp$content))
#> Hello world!
proc$stop()