我试图将样式函数用作formattable的一部分，但每次添加样式时都收到错误消息，并且不确定是什么问题，

当我使用以下查询时，导出就可以了

library(tibble)
library(formattable)  
library(rmarkdown)
library(dplyr)

        formattable(x_test,list(
      area(col = customers) ~ normalize_bar("pink",0.5),goal = color_tile("white","orange")
      ))

并且我收到以下html

但是当我尝试根据union_pre和目标结果显示上下箭头时

    formattable(x_test,"orange"),union_pre = formatter("span",style = ~ style(color = ifelse(union_pre >goal,"red","green")),~ icontext(ifelse(union_pre >goal,"arrow-up","arrow-down"),union_pre))  
  ))

我收到以下错误：

Error in style(color = ifelse(union_pre > goal,"green")) : 
  unused argument (color = ifelse(union_pre > goal,"green"))