title <- new_title_footnote(
list(
# We'll add tools to automate paging
c("Protocol: CDISCPILOT01", "Page {PAGE} of {NUMPAGES}"),
c("Table 14-2.01"),
c("Summary of Demographic and Baseline Characteristics")
),
"titles"
)
title <- clin_replace_pagenums(title)
footnote <- new_title_footnote(
list(
# We'll add tools to automate paging
c("Page {PAGE}", "Total Pages: {NUMPAGES}")
),
"footnotes"
)
footnote <- clin_replace_pagenums(footnote)
Run the code above in your browser using DataLab