| Application | R Documentation |
Creates Application object. Application provides an interface for building high-performance REST API by registering R functions as handlers http requests.
There are several advanced options to control how HTTP headers are processed:
options("RestRserve.headers.server") controls response "Server" header
options("RestRserve.headers.split") controls which header values
split by comma during parsing. See
https://en.wikipedia.org/wiki/List_of_HTTP_header_fields,
https://stackoverflow.com/a/29550711/3048453
There is also an option to switch-off runtime types validation in
the Request/Response handlers. This might provide some performance gains,
but ultimately leads to less robust applications. Use at your own risk!
See options("RestRserve.runtime.asserts")
loggerLogger object which records events during request processing.
Alternatively user can use loggers from lgr package as a drop-in
replacement - Logger methods and loggers created by lgr share
function signatures.
content_typeDefault response body content type.
HTTPErrorClass which raises HTTP errors.
Global HTTPError is used by default. In theory user can replace it with
his own class (see RestRserve:::HTTPErrorFactory). However we believe
in the majority of the cases using HTTPError will be enough.
endpointsPrints all the registered routes with allowed methods.
new()Creates Application object.
Application$new( middleware = list(EncodeDecodeMiddleware$new()), content_type = "text/plain", ... )
middlewareList of Middleware objects.
content_typeDefault response body content (media) type. "text/plain" by default.
...Not used at the moment.
add_route()Adds endpoint and register user-supplied R function as a handler.
Application$add_route(
path,
method,
FUN,
match = c("exact", "partial", "regex"),
...
)pathEndpoint path.
methodHTTP method. Allowed methods at the moment:
GET, HEAD, POST, PUT, DELETE, OPTIONS, PATCH.
FUNUser function to handle requests. FUN must take two arguments:
first is request (Request) and second is response (Response).
The goal of the user function is to modify response or throw
exception (call raise() or stop()).
Both response and request objects modified in-place and internally
passed further to RestRserve execution pipeline.
matchDefines how route will be processed. Allowed values:
exact - match route as is. Returns 404 if route is not matched.
partial - match route as prefix. Returns 404 if prefix are not matched.
regex - match route as template. Returns 404 if template pattern not matched.
...Not used.
add_get()Shorthand to Application$add_route() with GET method.
Application$add_get(
path,
FUN,
match = c("exact", "partial", "regex"),
...,
add_head = TRUE
)pathEndpoint path.
FUNUser function to handle requests. FUN must take two arguments:
first is request (Request) and second is response (Response).
The goal of the user function is to modify response or throw
exception (call raise() or stop()).
Both response and request objects modified in-place and internally
passed further to RestRserve execution pipeline.
matchDefines how route will be processed. Allowed values:
exact - match route as is. Returns 404 if route is not matched.
partial - match route as prefix. Returns 404 if prefix are not matched.
regex - match route as template. Returns 404 if template pattern not matched.
...Not used.
add_headAdds HEAD method.
add_post()Shorthand to Application$add_route() with POST method.
Application$add_post(path, FUN, match = c("exact", "partial", "regex"), ...)pathEndpoint path.
FUNUser function to handle requests. FUN must take two arguments:
first is request (Request) and second is response (Response).
The goal of the user function is to modify response or throw
exception (call raise() or stop()).
Both response and request objects modified in-place and internally
passed further to RestRserve execution pipeline.
matchDefines how route will be processed. Allowed values:
exact - match route as is. Returns 404 if route is not matched.
partial - match route as prefix. Returns 404 if prefix are not matched.
regex - match route as template. Returns 404 if template pattern not matched.
...Not used.
add_static()Adds GET method to serve file or directory at file_path.
Application$add_static(path, file_path, content_type = NULL, ...)
pathEndpoint path.
file_pathPath file or directory.
content_typeMIME-type for the content.
If content_type = NULL then MIME code content_type will be inferred
automatically (from file extension).
If it will be impossible to guess about file type then content_type will
be set to application/octet-stream.
...Not used.
add_openapi()Adds endpoint to serve OpenAPI description of available methods.
Application$add_openapi(path = "/openapi.yaml", file_path = "openapi.yaml")
pathpath Endpoint path.
file_pathPath to the OpenAPI specification file.
add_swagger_ui()Adds endpoint to show Swagger UI.
Application$add_swagger_ui( path = "/swagger", path_openapi = "/openapi.yaml", use_cdn = TRUE, path_swagger_assets = "/__swagger__/", file_path = "swagger-ui.html" )
pathpath Endpoint path.
path_openapiPath to the OpenAPI specification file.
use_cdnUse CDN to load Swagger UI libraries.
path_swagger_assetsSwagger UI asstes endpoint.
file_pathPath to Swagger UI HTML file.
append_middleware()Appends middleware to handlers pipeline.
Application$append_middleware(mw)
mwMiddleware object.
process_request()Process incoming request and generate Response object.
Application$process_request(request = NULL)
requestRequest object.
Useful for tests your handlers before deploy application.
print()Prints application details.
Application$print()
clone()The objects of this class are cloneable with this method.
Application$clone(deep = FALSE)
deepWhether to make a deep clone.
HTTPError Middleware Request Response
# init logger
app_logger = Logger$new()
# set log level for the middleware
app_logger$set_log_level("debug")
# set logger name
app_logger$set_name("MW Logger")
# init middleware to logging
mw = Middleware$new(
process_request = function(rq, rs) {
app_logger$info(sprintf("Incomming request (id %s): %s", rq$id, rq$path))
},
process_response = function(rq, rs) {
app_logger$info(sprintf("Outgoing response (id %s): %s", rq$id, rs$status))
},
id = "awesome-app-logger"
)
# init application
app = Application$new(middleware = list(mw))
# set internal log level
app$logger$set_log_level("error")
# define simply request handler
status_handler = function(rq, rs) {
rs$set_body("OK")
rs$set_content_type("text/plain")
rs$set_status_code(200L)
}
# add route
app$add_get("/status", status_handler, "exact")
# add static file handler
desc_file = system.file("DESCRIPTION", package = "RestRserve")
# add route
app$add_static("/desc", desc_file, "text/plain")
# define say message handler
say_handler = function(rq, rs) {
who = rq$parameters_path[["user"]]
msg = rq$parameters_query[["message"]]
if (is.null(msg)) msg = "Hello"
rs$set_body(paste(who, "say", dQuote(msg)))
rs$set_content_type("text/plain")
rs$set_status_code(200L)
}
# add route
app$add_get("/say/{user}", say_handler, "regex")
# print application info
app
# test app
# simulate requests
not_found_rq = Request$new(path = "/no")
status_rq = Request$new(path = "/status")
desc_rq = Request$new(path = "/desc")
say_rq = Request$new(path = "/say/anonym", parameters_query = list("message" = "Hola"))
# process prepared requests
app$process_request(not_found_rq)
app$process_request(status_rq)
app$process_request(desc_rq)
app$process_request(say_rq)
# run app
backend = BackendRserve$new()
if (interactive()) {
backend$start(app, 8080)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.