Nothing
# Silence
globalVariables(
c(
'private',
'self',
'super'
)
)
#' Select a random safe port
#'
#' This is a small utility function to get random safe ports to run your
#' application on. It chooses a port within the range that cannot be registeret
#' to IANA and thus is safe to assume are not in use.
#'
#' @return An integer in the range 49152-65535
#'
#' @export
#'
#' @examples
#' random_port()
#'
#' @keywords internal
random_port <- function() {
low <- 49152
high <- 65535
as.integer(sample(high - low, 1) + low)
}
#' Convert a request to an ID
#'
#' @param request A Request object
#'
#' @return A string uniquely linking the request to the client
#'
#' @noRd
#'
client_to_id <- function(request) {
paste0('ID_', request$ip)
}
#' Predefined responses
#'
#' This is a convenience for not having to type out a typical response every time
#' they are needed
#'
#' @noRd
#'
notFound <- list(
status = 404L,
headers = list('Content-Type' = 'text/plain'),
body = ''
)
serverError <- list(
status = 500L,
headers = list('Content-Type' = 'text/plain'),
body = ''
)
# better try
tri <- function(expr) {
tryCatch(expr, error = function(e) e)
}
is.condition <- function(x) inherits(x, 'condition')
is.error_cond <- function(x) is.condition(x) && inherits(x, 'error')
`%||%` <- function(l, r) if (is.null(l)) r else l
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.