inst/plumber/06-sessions/plumber.R

In trestletech/plumber: An API Generator for R

#* @get /counter
function(req, res) {
  count <- 0
  if (!is.null(req$cookies$visitcounter)) {
    count <- as.numeric(req$cookies$visitcounter)
  }
  # Most people won't need to concern themselves with the path argument.
  # I do because of some peculiarities in how I'm hosting the examples.
  res$setCookie("visitcounter", count+1, path="/")
  return(paste0("This is visit #", count))
}

#* Example using req$session. Requires adding "session_cookie()" support to your API in order
#* to work:
#* @get /sessionCounter
function(req){
  count <- 0
  if (!is.null(req$session$counter)){
    count <- as.numeric(req$session$counter)
  }
  req$session$counter <- count + 1
  return(paste0("This is visit #", count))
}

#* @assets static
list()


#* @plumber
function(pr) {
  pr %>%
    pr_cookie("secret", "cookieName")
}