Nothing
Static <- setRefClass(
'Static',
'contains' = 'Middleware',
fields = c('urls','file_server'),
methods = list(
initialize = function(urls=c(),root=pwd(),...){
urls <<- paste('^',urls,sep='')
file_server <<- Rook::File$new(root)
callSuper(...)
},
call = function(env){
path <- env[["PATH_INFO"]]
if (any(sapply(urls,function(i)length(grep(i,path))>0)))
file_server$call(env)
else
app$call(env)
}
)
)
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.