Nothing
is_rookable <- function(app){
if (is(app,'refClass')) TRUE
else if (is(app,'function')) TRUE
else FALSE
}
# Abstract Rook::App and Rook::Middleware that Builder and related apps inherit from.
App <- setRefClass(
'App',
fields = c('app'),
methods = list(
initialize = function(app=NULL,...) {
app <<- app
callSuper(...)
},
call = function(env){
if (is(app,'refClass')) app$call(env)
else if (is(app,'function')) app(env)
else stop('App not Rook aware')
}
)
)
Middleware <- setRefClass(
'Middleware',
contains = 'App',
methods = list(
initialize = function(...) {
callSuper(...)
},
set_app = function(app){
app <<- app
}
)
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.