docs/code-samples/community/serving/helloworld-rserver/HelloWorld.R

#' HelloWorld function
#' @get /
#' @html
function() {
  TARGET <- Sys.getenv("TARGET", "World")

  message = paste("Hello ", TARGET, "!", sep = "")
  print(message)
}