Вывод TabItem не работает для R Shinydashboard - PullRequest
Новая
       41

Вывод TabItem не работает для R Shinydashboard

0 голосов
/ 11 апреля 2020

Я пытаюсь создать простое приложение, используя Shinydashboard. Одна из таблиц («Необработанные данные») ничего не отображает, и при нажатии на нее ни одна страница не изменяется. Я перепроверил синтаксис, и код работает нормально. Не понимаю в чем дело.

Ui.R- 

header = dashboardHeader(title="COVID-19 Tracker")

sidebar =   dashboardSidebar(collapsed = TRUE,
                   sidebarMenu(menuItem("Dashboard", tabName = "Dashboard",icon = icon("globe")),
                               menuItem("Raw Data", tabName = "Raw Data", icon = icon("database")),
                               menuItem("Graphs",tabName = "Graphs", icon = icon("chart-bar"))
                               ))
body =  dashboardBody(
  tabItems(
    tabItem(tabName = "Dashboard",
                   fluidRow(valueBox(10*3, "Cases", width = 4), 
                            valueBoxOutput("Recovered", width = 4), 
                            valueBoxOutput("Deaths", width = 4)
                            )
                   ),
    tabItem(tabName = "Raw Data", h2("Raw Data has been loaded!")
                   ),
    tabItem(tabName = "Graphs",fluidRow(
             column(
               width=4, 
               selectizeInput(
                 "country", label=h5("Country"), choices=NULL, width="100%")
             ),
             column(
               width=4, 
               selectizeInput(
                 "state", label=h5("State"), choices=NULL, width="100%")
             ),
             column(
               width=4, 
               checkboxGroupInput(
                 "metrics", label=h5("Selected Metrics"), 
                 choices=c("Confirmed", "Deaths", "Recovered"), 
                 selected=c("Confirmed", "Deaths", "Recovered"), 
                 width="100%")
             )
           ),
           fluidRow(
             plotlyOutput("dailyMetrics")
           ),
           fluidRow(
             plotlyOutput("cumulatedMetrics"))
           )
  )
)

ui = dashboardPage(header, sidebar, body)

Я ценю всю помощь!

1 Ответ

1 голос
/ 11 апреля 2020

Это из-за пробела в tabName = "Raw Data". Удалите это, и это работает.

...