R/render.r

In hadley/sinartra: A simple web app framework for R, based on sinatra.

#' Send output to browser
#'
#' @param text a character vector 
#' @param status http status code
#' @param mime_type mime type
#' @param headers character vector of http headers
render <- function(text, status = 200L, mime_type = "text/html", headers = c()) {
  text <- stringr::str_c(text, collapse = "\n")
  list(
    payload = text, 
    "content-type" = mime_type, 
    "headers" = headers,
    "status code" = status)
}

#' Render template using brew.
#' Templates are located in \code{views}.
#' 
#' @param template string giving template name (file name without extension)
#' @param params list of parameters to be evaluated in template
#' @param path web app path
#' @param parent parent.frame() to be used
#' @export
render_brew <- function(template, params = NULL, path = getwd(), parent = parent.frame()) {
  path <- file.path(path, "views", stringr::str_c(template, ".html"))
  if (!file.exists(path)) stop("Can not find ", template, " template ",
    call. = FALSE)

  if (is.list(params) && length(params) > 0) {
    env <- list2env(params, parent = parent)
  } else {
    env <- parent
  }

  render(capture.output(brew::brew(path, envir = env)))
}

#' Produce JSON from an R object
#'
#' @param object R object to be converted to JSON
#' @export
render_json <- function(object) {
  json <- rjson::toJSON(object)
  render(json, mime_type = "application/json")
}