r - 格式化程序输出不会以闪亮的形式出现

Question

我可以让我闪亮的应用程序使用格式化程序中应用的格式吗？

第一列在列出时以绿色打印，但不是闪亮的。

ft <- formattable(mtcars,
            list(mpg = formatter("span", style = "color:green")))

#mpg prints green here:
ft

app = shinyApp(
  ui = fluidPage(
    fluidRow(
      column(12,
             formattableOutput('table')

      )
    )
  ),
  server = function(input, output) {
    #but not here
    output$table <- renderFormattable({formattable(ft, list())})
      }
)

Answer 1

您正在调用该函数formattable两次。list()第二次在应用程序中使用不包含格式选项的空。基本上，您使用空格式覆盖了您之前定义的格式。要解决这个问题，有两种选择。

一种是在应用程序外部定义您的表格并在不覆盖格式的情况下呈现输出：

output$table <- renderFormattable({ft})

但也可以在服务器内部定义表格和格式选项：

output$table <- renderFormattable({formattable(mtcars,
                                                   list(mpg = formatter("span", style = "color:green")))})