Question

我正在尝试构建闪亮的仪表板应用程序。

在应用程序中，我需要动态呈现表。当我加载应用程序时，我没有收到表格输出。

我已将代码拆分为三个文件：global.R，ui.R和server.R

global.R

my_data <- head(mtcars)

ui.R

tabItem(tabName = "impRels",
        fluidRow(
                 box(DT::dataTableOutput("table1"))
              )
)

server.R

output$table1 <- DT::renderDataTable({
   datatable(my_data)
})

Answer 1

简化，作为开始。但是，您可能希望在UI上工作。

library(shiny)
library(DT)

my_data <- head(mtcars)

ui <- shinyUI(
  fluidPage(
   fluidRow( dataTableOutput("table1") ) 
  )
)

server <- shinyServer(function(input, output, session){
  output$table1 <- renderDataTable({ datatable(my_data) })
})

shinyApp(ui=ui, server=server)

我正在构建闪亮的仪表板，我需要动态渲染表..我的代码如下

1 个答案: