tests/testthat/projects/example_controller/lib/controllers/names.R

In robertzk/syberia: Syberia

preprocessor <- function(filename) {
  list(prefilename = filename)
}

function(resource, filename, output) {
  list(resource_name = resource, filename = filename, prefilename = output$prefilename)
}