-
Notifications
You must be signed in to change notification settings - Fork 0
/
pretty_supfigref.R
32 lines (30 loc) · 1.11 KB
/
pretty_supfigref.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
#' A wrapper for pretty_captioner with sensible defaults for captioning supplementary figures
#'
#' @export
#' @inherit pretty_captioner
#' @examples
#'
#'## Generate a simple reference
#'pretty_supfigref('1' , 'Example', reinit = TRUE)
#'
#'## cite in text
#'pretty_supfigref('1')
#'
#'## Drop captilisation for use in line
#'pretty_supfigref('1', inline = TRUE)
#'
#'## Add another table caption
#'pretty_supfigref('2' , 'Example 2')
#'
pretty_supfigref <- function(label = NULL, caption = NULL,
prefix = "Supplementary Figure",
sec_prefix = "S", auto_space = TRUE,
levels = 1, type = NULL,
infix = ".", display = "full",
inline = FALSE, reinit = FALSE, ...) {
pretty_captioner(label = label, caption = caption, prefix = prefix,
sec_prefix = sec_prefix, auto_space = auto_space,
levels = levels, type = type, infix = infix,
display = display, inline = inline, reinit = FALSE,
cap_fun_name = "supfigref", ...)
}