r - 可以结合使用DT，formattable和Shiny吗？

Formattable有一些简单的选项可以格式化表格，例如：

library(shiny)
library(DT)
library(formattable)

  df <- formattable(iris, lapply(1:4, function(col){

    area(col = col) ~ color_tile("red", "green")

以后可以将其覆盖到DT数据表中

df <- as.datatable(df)

对我来说，在RStudion的Viewer中查看效果很好。但是，我想以某种方式将其部署为Shiny应用程序。完整的代码：

library(DT)
library(shiny)

ui <- fluidPage(
  DT::dataTableOutput("table1"))


server <- function(input, output){

  df <- formattable(iris, lapply(1:4, function(col){

    area(col = col) ~ color_tile("red", "green")

  }))

  df <- as.datatable(df)

  output$table1 <- DT::renderDataTable(DT::datatable(df))

}

shinyApp(ui, server)

这是行不通的，请问有没有解决的办法？我喜欢formattable中的条件格式，但也想使用DT提供的一些选项，例如过滤，搜索，colvis等。

要将其部署为formattable，有一个线程：

How to use R package "formattable" in shiny dashboard?

最佳答案

是的，正如here所述，这似乎是可能的。以下是一些有关如何实现此目的的示例代码：

library(shiny)
library(data.table)
library(formattable)

ui <- fluidPage(
  selectInput("input1","Species: ", choices = c("setosa", "versicolor", "virginica")),
  DT::dataTableOutput("table1"))

# make a data.table of the iris dataset.
df <- iris

server <- function(input, output){

  output$table1 <- DT::renderDataTable( {

    my_df <- df[df$Species==input$input1,]

    return(as.datatable(formattable(my_df, lapply(1:4, function(col){area(col = col) ~ color_tile("red", "green")}))))
  }
  )

}

shinyApp(ui, server)