tmpl_glue: glue based template engine

Description Usage Arguments Value Examples

View source: R/tmpl-glue.R

Description

Use this template engine to create pages with glue templates. See glue::glue() for the syntax.

Usage

1
2
3
4
5
6
7
8
tmpl_glue(
  sep = "",
  open = "{",
  close = "}",
  na = "NA",
  transformer = NULL,
  trim = TRUE
)

Arguments

sep

Separator used to separate elements.

open

The opening delimiter. Doubling the full delimiter escapes it.

close

The closing delimiter. Doubling the full delimiter escapes it.

na

Value to replace NA values with. If NULL missing values are propagated, that is an NA result will cause NA output. Otherwise the value is replaced by the value of na.

transformer

A function taking three parameters code, envir and data used to transform the output of each block before during or after evaluation.

trim

Whether to trim the input template with glue::trim() or not.

Value

Template function.

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
# See th 'hello' app at
hello_root <- system.file(package = "webfakes", "examples", "hello")
hello_root

app <- new_app()
app$engine("txt", tmpl_glue())
app$use(mw_log())


app$get("/view", function(req, res) {
  txt <- res$render("test")
  res$
    set_type("text/plain")$
    send(txt)
})

# Switch to the app's root: setwd(hello_root)
# Now start the app with: app$listen(3000L)
# Or start it in another process: new_process(app)

webfakes documentation built on April 30, 2021, 5:09 p.m.