r语言 - 格式化表不以"闪亮"格式呈现输出

Question

代码在 Rstudio 中正常工作，代码是

library(datatable)
library(shiny)
library(magrittr)
datatable(report) %>% formatStyle('status',target = 'row',
backgroundColor = styleEqual(c("Completed","Over run"), c('lightgreen','red')))

但是，我不知道如何在闪亮中输出此数据表/格式表？

错误说：

no applicable method for 'as.htmlwidget' applied to an object of class "c('datatables', 'htmlwidget')"

Answer 1

我跳这个 litte 闪亮的应用程序会帮助你。由于我没有您的数据帧report，我将其替换为iris数据帧。因此，formatStyle将查找列Species并以不同的方式着色。

在 UI 中，您可以通过DT::dataTableOutput("YourTableID")

定义输出，在服务器中定义类似output$YourTableID <- DT::renderDataTable({ ... })的输出，在其中放置代码以生成数据表。

此外，您正在寻找的库DT不是datatable。

library(DT)
library(shiny)
report <- iris
ui <- fluidPage(
DT::dataTableOutput("table")
)
server <- function(input, output, session) {
output$table <- DT::renderDataTable({
datatable(report) %>% formatStyle('Species',target = 'row',
backgroundColor = styleEqual(c("setosa","versicolor", "virginica"), 
c('lightgreen','red', "yellow")))
})
}
shinyApp(ui, server)