R/body.R

In kos59125/shadowy: RESTful API Framework for R

#' @include http.R
NULL

#' Response Body
#' @param value
#'    a value.
#' @param expr
#'    a quote object. The value is evaluated at each request.
#' @rdname body
#' @format http.source
#' @export
setBody <- function(value) {
   as.http.source(function(context) {
      stopifnot(is.http.context(context))
      context$response$body <- as.character(value)
      some(context)
   })
}

#' @rdname body
#' @export
setBodyLazy <- function(expr) {
   as.http.source(function(context) {
      stopifnot(is.http.context(context))
      context$response$body <- as.character(eval(expr))
      some(context)
   })
}

#' @rdname body
#' @export
emptyBody <- function() {
   as.http.source(function(context) {
      stopifnot(is.http.context(context))
      context$response$body <- ""
      some(context)
   })
}