inst/doc/plugins.R

## ---- eval=FALSE--------------------------------------------------------------
#  app$attach(plugin)

## ---- eval=FALSE--------------------------------------------------------------
#  plugin <- list(
#    on_attach = function(server) {
#      router <- server$plugins$request_routr
#      route <- Route$new()
#      route$add_handler('all', '*', function(request, response, arg_list, ...) {
#        message('Hello')
#        TRUE
#      })
#      router$add_route(route, 1)
#    },
#    name = 'Hello_plugin',
#    require = 'request_routr'
#  )

## ---- eval=FALSE--------------------------------------------------------------
#  plugin <- list(
#    on_attach = function(server) {
#      if (!server$has_plugin('request_routr')) {
#        server$attach(RouteStack$new())
#      }
#      router <- server$plugins$request_routr
#      route <- Route$new()
#      route$add_handler('all', '*', function(request, response, arg_list, ...) {
#        message('Hello')
#        TRUE
#      })
#      router$add_route(route, 1)
#    },
#    name = 'Hello_plugin2'
#  )

Try the fiery package in your browser

Any scripts or data that you put into this service are public.

fiery documentation built on Dec. 16, 2020, 1:08 a.m.