R/App.R

In jeffreyhorner/Rook: Rook - a web server interface for R

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
	}
    )
)