formattable：更改列的字体并在同一列上应用颜色栏

在使用formattable向列添加两个格式化功能时，我需要一些帮助（实际上，我使用format_table，但我认为这是相同的用法）。我可以添加颜色栏：

data <- data.frame(id = 1:10, x = round(rnorm(10, 100, 25),0))
myhtml<-format_table(data,list(x=color_bar("lightgreen")))
write(myhtml,outfile)

数据
myhtml<-format_table(data,list(x=formatter("span",style="font-family:verdana; font-size:8")))
write(myhtml,outfile)

myhtml<-format_table(data, list(x = formatter("span",
  style = x ~ style(
    display = "inline-block",
    direction = "rtl",
    "border-radius" = "4px",
    "padding-right" = "2px",
    "background-color" = csscolor("lightgray"),
    width = percent(proportion(x)),
    "font-family" = "verdana",
    "font-size" = 10,
    color = csscolor(gradient(x, "darkgreen", "red"))
  ))))
write(myhtml,outfile)