inst/exampleApps/arrayparams.R
In jeffreyhorner/Rook: Rook - a web server interface for R
app <- function(env){
req <- Request$new(env)
res <- Response$new()
getVars <- req$GET()
postVars <- req$POST()
content <- c("<!DOCTYPE html>\n",
"<html>\n<head>\n<title>Rook Array Parameters</title>\n</head>\n",
"<body>\n<h1>Rook Array Parameters</h1>\n",
"<h2>GET request</h2>\n<form>\n<p>\n",
"<label><input type='checkbox' name='foo[]' value='foo' /> foo</label>\n",
"<label><input type='checkbox' name='foo[]' value='bar' /> bar</label>\n",
"</p>\n<p>\n<input type='submit' name='get' />\n</p>\n</form>\n")
if (length(getVars) > 0) {
content <- c(content,
"<pre>\n",
paste(capture.output(str(getVars), file=NULL), collapse='\n'),
"</pre>\n")
}
content <- c(content,
"<h2>POST request</h2>\n<form method='post'>\n<p>\n",
"<label><input type='checkbox' name='foo[]' value='foo' /> foo</label>\n",
"<label><input type='checkbox' name='foo[]' value='bar' /> bar</label>\n",
"</p>\n<p>\n<input type='submit' name='post' />\n</p>\n</form>\n")
if (length(postVars) > 0 && 'post' %in% names(postVars)) {
content <- c(content,
"<pre>\n",
paste(capture.output(str(postVars), file=NULL), collapse='\n'),
"</pre>\n")
}
content <- c(content,
"<h2>POST multipart request</h2>\n<form method='post' enctype='multipart/form-data'>\n<p>\n",
"<label><input type='checkbox' name='foo[]' value='foo' /> foo</label>\n",
"<label><input type='checkbox' name='foo[]' value='bar' /> bar</label>\n",
"</p>\n<p>\n<input type='submit' name='multipart' />\n</p>\n</form>\n")
if (length(postVars) > 0 && 'multipart' %in% names(postVars)) {
content <- c(content,
"<pre>\n",
paste(capture.output(str(postVars), file=NULL), collapse='\n'),
"</pre>\n")
}
res$write(c(content, "</body>\n</html>\n"))
res$finish()
}
jeffreyhorner/Rook documentation built on May 19, 2019, 4:01 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
app <- function(env){
req <- Request$new(env)
res <- Response$new()
getVars <- req$GET()
postVars <- req$POST()
content <- c("<!DOCTYPE html>\n",
"<html>\n<head>\n<title>Rook Array Parameters</title>\n</head>\n",
"<body>\n<h1>Rook Array Parameters</h1>\n",
"<h2>GET request</h2>\n<form>\n<p>\n",
"<label><input type='checkbox' name='foo[]' value='foo' /> foo</label>\n",
"<label><input type='checkbox' name='foo[]' value='bar' /> bar</label>\n",
"</p>\n<p>\n<input type='submit' name='get' />\n</p>\n</form>\n")
if (length(getVars) > 0) {
content <- c(content,
"<pre>\n",
paste(capture.output(str(getVars), file=NULL), collapse='\n'),
"</pre>\n")
}
content <- c(content,
"<h2>POST request</h2>\n<form method='post'>\n<p>\n",
"<label><input type='checkbox' name='foo[]' value='foo' /> foo</label>\n",
"<label><input type='checkbox' name='foo[]' value='bar' /> bar</label>\n",
"</p>\n<p>\n<input type='submit' name='post' />\n</p>\n</form>\n")
if (length(postVars) > 0 && 'post' %in% names(postVars)) {
content <- c(content,
"<pre>\n",
paste(capture.output(str(postVars), file=NULL), collapse='\n'),
"</pre>\n")
}
content <- c(content,
"<h2>POST multipart request</h2>\n<form method='post' enctype='multipart/form-data'>\n<p>\n",
"<label><input type='checkbox' name='foo[]' value='foo' /> foo</label>\n",
"<label><input type='checkbox' name='foo[]' value='bar' /> bar</label>\n",
"</p>\n<p>\n<input type='submit' name='multipart' />\n</p>\n</form>\n")
if (length(postVars) > 0 && 'multipart' %in% names(postVars)) {
content <- c(content,
"<pre>\n",
paste(capture.output(str(postVars), file=NULL), collapse='\n'),
"</pre>\n")
}
res$write(c(content, "</body>\n</html>\n"))
res$finish()
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.