if (interactive()) {
if (!HttpDaemon$isStarted()) {
# Start the web server
rootPath <- system.file("rsp", package="R.rsp")
HttpDaemon$start(rootPath=rootPath, port=8074, default="index.rsp")
}
browseURL("http://127.0.0.1:8074/")
}
Run the code above in your browser using DataLab