在函数中使用 flextable::display()
use flextable::display() in a function
我正在尝试在函数中使用 flextable::display()
函数,使用显示中函数的参数。以下是我的功能:
add_footnote <- function(df, col, pattern, symbol){
tmp <- df
pat <- paste0(pattern, " {{x}}")
tmp <- display(tmp,
col_key = col,
i = ~ col == pattern,
pattern = pat,
formatters = list(x ~ as.character(symbol)),
fprops = list(x = fp_text(vertical.align = 'superscript')) )
return(tmp)
}
# Call function
df <- regulartable(head(iris))
add_footnote(df, col = 'Species', pattern = 'setosa', symbol = 'a')
我希望在 setosa
出现在 Species
列的任何地方得到一个上标 a
,但是它给出了以下错误,表明显示功能无法看到传递给函数的参数:
Error in eval(as.call(f[[2]]), envir = data) : object 'pattern' not found
有谁知道如何从函数中获取参数以供内部 display()
函数识别?
函数 display
很难用 - 这就是我写 flextable::compose
的原因。它可以依赖整洁的 eval 语法。以下 2 个示例应该对您有所帮助:
library(flextable)
library(officer)
library(rlang)
add_footnote_with_rlang <- function(df, col, pattern, symbol){
form_ <- sprintf("~ %s == '%s'", col, pattern)
colname <- enquo(col)
flextable::compose(
x = df, j = col, i = as.formula(form_),
value = as_paragraph(
as_chunk(!!colname),
as_chunk(symbol, props = fp_text(vertical.align = 'superscript')))
)
}
add_footnote <- function(df, col, pattern, symbol){
form_ <- sprintf("~ %s == '%s'", col, pattern)
flextable::compose(
x = df, j = col, i = as.formula(form_),
value = as_paragraph(
as_chunk(symbol, props = fp_text(vertical.align = 'superscript')))
)
}
# Call function
df <- regulartable(head(iris))
# df <- add_footnote(df, col = 'Species', pattern = 'setosa', symbol = 'a')
df <- add_footnote_with_rlang(df, col = 'Species', pattern = 'setosa', symbol = 'a')
df