Блог

Главная - Вопросы по программированию - Я создаю блестящую панель мониторинга, где мне нужно отобразить таблицу dynamically..my код ниже

Я создаю блестящую панель мониторинга, где мне нужно отобразить таблицу dynamically..my код ниже

#r #shiny

#r #блестящий

Вопрос:

Я пытаюсь создать приложение блестящей панели мониторинга.

В приложении мне нужно динамически отображать таблицу. Когда я загружаю приложение, я не получаю табличный вывод.

Я разделил код на три файла: 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)
})

Ответ №1:

Для начала упрощено. Возможно, вы захотите поработать над своим пользовательским интерфейсом.

 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. это работает, но когда я пытаюсь поместить тот же фрагмент кода в блестящую панель мониторинга, вывод не выводится.

2. Код пользовательского интерфейса # Содержимое третьей вкладки TabItem(tabName = «impRels», fluidPage( fluidRow( dataTableOutput(«table1»)) ) )

3. код сервера:: my_data<- head(mtcars) вывод$table1 <- renderDataTable({ datatable(my_data) })

4. таблица рендеринга не работает, когда я помещаю код внутри TabItem в пользовательский интерфейс

5. @Ruma Sinha . Кажется, вы хотите работать с shinydashboard на стороне клиента. Пожалуйста, следуйте этим инструкциям здесь. rstudio.github.io/shinydashboard/get_started.html