# Create an Rhttpd object and start the internal web server. Note that
# if there are no applications added, then the default RookTest app in
# system.file('exampleApps/RookTestApp.R',package='Rook') is automatically
# added.
s <- Rhttpd$new()
if (FALSE) {
s$start(quiet=TRUE)
s$browse(1)
}
s$print()
# Be sure to install the Hmisc package before installing and running
# this application. You will want to; it's a pretty good one.
# s$add(
# app=system.file('exampleApps/Hmisc/config.R',package='Rook'),
# name='hmisc')
s$add(
app=system.file('exampleApps/helloworld.R',package='Rook'),
name='hello'
)
s$add(
app=system.file('exampleApps/helloworldref.R',package='Rook'),
name='helloref'
)
s$add(
app=system.file('exampleApps/summary.R',package='Rook'),
name='summary'
)
s$print()
# Stops the server but doesn't uninstall the app
if (FALSE) {
s$stop()
}
s$remove(all=TRUE)
rm(s)
Run the code above in your browser using DataLab