R/aaa.R

Defines functions `%||%` is.error_cond is.condition tri client_to_id random_port

Documented in random_port

# 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

Try the fiery package in your browser

Any scripts or data that you put into this service are public.

fiery documentation built on Dec. 16, 2020, 1:08 a.m.