Question

我想使用grid.table（myDataFrame）在表格中显示数据框。我需要帮助搞清楚：

使用闪亮的
在render * function body中准确写什么

到目前为止，我有以下代码

在UI.R中，在fluidPage和fluidRow中：

dataTableOutput("TauxInsertion")

然后在Server.R中：

 output$TauxInsertion <- renderDataTable({
  dataDepartement()
  # TauxInsertionTable <- grid.table(dataDepartement())
  # TauxInsertionTable
  })

dataDepartement是一个包含dataFrame的反应变量。在renderDataTable中返回这个数据框给了我一个表。但我需要能够显示行名称并为显示添加一些颜色和样式。评论部分是我尝试过的，但没有显示任何内容。

控制台中没有重要消息。我也尝试了选项（shiny.trace = TRUE）但无济于事。

Answer 1

我认为你必须使用专用于绘图的功能。看看

library(shiny)
library(grid)
library(gridExtra)

ui <- fluidPage(
   plotOutput("plot")
      )   
server <- function(input, output) {  
   output$plot <- renderPlot({    
     grid.table(head(iris,3))
   })
}
shinyApp(ui = ui, server = server)

如何用Shiny显示grid.table

1 个答案: