Skip to contents

Automatically updates page number.

Usage

decorate_grob_factory(npages, ...)

Arguments

npages

number of pages in total

...

passed on to decorate_grob

Value

closure that increments the page number

Author

Adrian Waddell (waddella) adrian.waddell@roche.com

Examples

# Internal function - decorate_grob_factory
if (FALSE) {
pf <- decorate_grob_factory(
  titles = "This is a test\nHello World",
  footnotes = "Here belong the footnotess",
  npages = 3
)

library(grid)
draw_grob(pf(NULL))
draw_grob(pf(NULL))
draw_grob(pf(NULL))
}