Условное форматирование всей таблицы в FlexTable

Question

Что я хочу сделать, это условно отформатировать всю таблицу в r на основе значения, в настоящее время я пробую это с помощью flextable:

#some data 
SalesData<-data.frame(Appliance=c("Radio", "Laptop", "TV", "Fridge"), ThisYear=c(5,25,5,8), LastYear=c(6,20,5,8))

#use flextable to conditionally format the data so that anything in the ThisYear column more than 10 is light blue
library(flextable)

SalesData<-regulartable(SalesData)
SalesData<-bg(SalesData, i = ~ ThisYear >10,j= ~ ThisYear,bg = "light blue")
SalesData

Таблицы, которые у меня есть, могут быть довольно большими, так как я могу применить это ко всей таблице без необходимости указывать форматирование для каждого отдельного столбца?

Answer 1

Для этого вы можете либо не использовать j, либо установить его значение в имена столбцов:

SalesData<-data.frame(Appliance=c("Radio", "Laptop", "TV", "Fridge"), ThisYear=c(5,25,5,8), LastYear=c(6,20,5,8))

# option 1
ft1 <-regulartable(SalesData)
ft1 <-bg(ft1, i = ~ ThisYear >10, bg = "light blue")
ft1

# option 2 (recommanded)
ft2 <-regulartable(SalesData)
ft2 <- bg(ft, i = ~ ThisYear >10, j = names(SalesData), bg = "light blue")
ft2