app <- function(env){
req <- Rook::Request$new(env)
res <- Rook::Response$new()
friend <- 'World'
if (!is.null(req$GET()[['friend']]))
friend <- req$GET()[['friend']]
res$write(paste('<h1>Hello',friend,'</h1>\n'))
res$write('What is your name?\n')
res$write('<form method="GET">\n')
res$write('<input type="text" name="friend">\n')
res$write('<input type="submit" name="Submit">\n</form>\n<br>')
res$finish()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.