s <- Rhttpd$new()
s$add(RhttpdApp$new(
name='summary',
app=system.file('exampleApps/summary.R',package='Rook')
))
if (FALSE) {
s$start(quiet=TRUE)
s$browse(1)
}
s$remove(all=TRUE)
# 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 DataCamp Workspace