R Блестящий с помощью navbarPage и DataTable —

#r #shiny #datatable

Вопрос:

Я пытаюсь отобразить таблицу данных в блестящем формате, используя опцию «DT» в R. Но не уверен, что с патчем что-то не так. Перепробовал все, кроме «таблица не отображается на странице». Любая помощь будет признательна.

Ниже приведен код для этой страницы —

 navbarMenu("Data Tracker", icon = icon("database"),

       tabPanel("A", fluid = TRUE,
                
                sidebarLayout(
                  sidebarPanel(width = 3,
                               
                               dateRangeInput("daterange1", "Date range:",
                                              start = "2000-01-01",
                                              end   = "2010-12-31"),
                               
                               #### Time Frame and Data Type Selector
                               
                               selectInput(inputId = "TimeFrame",
                                           choices = c("1","2"),
                                           selected = "1",
                                           width = "220px")
                  ),
                  
                  fluidRow(
                    column(12,
                           box(
                             title = "Data Secription - ", 
                             closable = TRUE,
                             width = 12,
                             status = "primary", 
                             solidHeader = TRUE, 
                             collapsible = TRUE,
                             p("Box Content")
                           ),
                           valueBox(10 * 2, "D"),
                           valueBox(10 * 2, "E"),
                           valueBox(10 * 2, "F?"),
                    ))),
                
                mainPanel(width = 12,
                          DT::dataTableOutput("table1")
                ))
       
 

Комментарии:

1. Трудно сказать, потому что вы не показываете полный код. Вы загрузили DT с помощью library(DT)

2. Спасибо за ваш ответ. Да, я загрузил необходимые пакеты.

3. Вы закодировали таблицу в файле server.R и назвали ее «таблица1»?

4. Да. вывод$таблица 1

5. Пожалуйста, приведите минимальный воспроизводимый пример (т. Е. Полный код для запущенного блестящего приложения, который показывает вашу проблему), тогда вам будет легче помочь. Спасибо!