在 R 中的 Function 中使用 Flextable

Question

I am trying to create a function in R markdown for conditional formatting while using flextable package. I am trying to color format rows based on the condition which compares two columns.

library(flextable)
library(dplyr)
cndnl_form <- function(data,mv1,ov1)

{
ft <- flextable({{data}})

ft <- color(ft, i = ~ ({{mv1}}- {{ov1}}/ abs({{mv1}}) > 0.25),
j = {{ov1}},
color="blue")

}

cndnl_form(df,"ft$3","ft$10")

but i am getting an error Error during wrapup: object 'mv1' not found

Any idea, what should i change?

Answer 1

I'm not sure whether tidy eval will work in this context.

However, as flextable allows for formula specifications you can set up the condition as a formula-string which can then be converted to a formula.

Using mtcars as example data with the simple condition mv1 > 20 try this:

library(flextable)

cndnl_form <- function(data, mv1, ov1)
{
  ft <- flextable({{data}})

  #cond <- paste("~", "(", mv1, "-", ov1, ")", "/", "abs(", mv1, ") > 0.25")

  cond <- paste("~", mv1, "> 20")
  color(ft, i = as.formula(cond), j = as.formula(paste("~", ov1)), color="blue")
}

ft <- cndnl_form(head(mtcars), "mpg", "gear")