是否可以在R格式表上下文中创建格式器，以便有条件地应用它？

问题描述

我有一个将使用R formattable库进行格式化的数据框。我创建了一个格式化程序以应用适当的格式。但是，数据帧包含一些NA，遇到它们时，格式化将失败。我真正想做的是对格式化程序进行编码，以便它有条件地确定何时应用格式，何时不应用格式。下面的代码说明了这个问题。

library(formattable)

theData1 <- data.frame("A"=c(12.1456,143.012),"B"=c(145.23435,331.22335))
theData2 <- data.frame("A"=c(12.1456,331.22335),"C"=c(143.012,NA))

MyFormatter <- formattable::formatter(
   "span",style = ~ style(font.weight="bold"),x ~ style(round(x,2)))

tbl1 <- formattable::formattable(theData1,list('A'=MyFormatter,'B'=MyFormatter))
tbl2 <- formattable::formattable(theData1,'B'=MyFormatter,'C'=MyFormatter))

一条语句：formattable(tbl2)出错，并显示错误“ .mapply（function（name，value）{ 零长度的输入不能与非零长度的输入混合”

如何对段x ~ style(round(x,2))进行编码，以便在x为NA时将其忽略？

解决方法

ifelse可用于处理NA s

MyFormatter <- formattable::formatter(
   "span",style = ~ style(font.weight = "bold"),x ~ style(ifelse(!is.na(x),round(x,2),""))
)

formattable::formattable(theData2,list('A'=MyFormatter,'B'=MyFormatter,'C'=MyFormatter))