Не могу просмотреть CSV с приложением Shinydashboard

Question

Я только начинаю учиться блестяще, и у меня возникла проблема с просмотром загруженного CSV. Я мог просматривать данные, когда у меня не было бокового меню, но теперь, когда я пытаюсь расширить свое приложение с помощью других вкладок, данные теперь отображаются. Что-то не так с моим форматированием? Мой код прилагается, и он может быть использован для любого CSV. Спасибо

library(shiny)
library(shinydashboard)
library(DT)

options(shiny.maxRequestSize=400*1024^2) 

data<- read.csv("shiny.app.data.csv", header=TRUE, sep=',')

ui <- dashboardPage(skin="red",
  dashboardHeader(title="PRIZM Segment Analysis", titleWidth=350),
  dashboardSidebar(width=350, 
                   sidebarMenu(menuItem("Segment Counts and Summaries", tabname="segments", icon=icon("pie-chart")),
                   menuItem("Raw Data", tabname="raw", icon=icon("book")),
                   menuItem("Plots", tabname="plots", icon=icon("line-chart")))),               
  dashboardBody(tabItems(
    tabItem(tabName="segments",
                box(DT::dataTableOutput("test"), width = 12, status="success", solidHeader = TRUE)))

))

server <- function(input, output, session) {
  is.num<- sapply(data, is.numeric)
  data[is.num] <-lapply(data[is.num], round,2)

  output$test <- DT::renderDataTable({
                datatable(data,
                extensions = c('ColReorder','Buttons'),
                options = list(colReorder = list(realtime = FALSE),scrollX = TRUE,dom = 'Bfrtip', buttons = I('colvis'), list(scrollX = TRUE)),
                rownames=FALSE,
                class = 'display cell-border', width=15)


    })
    }

    shinyApp <- shinyApp(ui, server)
    runApp(shinyApp, launch.browser=TRUE)

Answer 1

Это просто опечатка в вашем коде в tabName (обратите внимание на заглавную N) в пределах menuItem:

library(shiny)
library(shinydashboard)
library(DT)

options(shiny.maxRequestSize=400*1024^2) 

data<- read.csv("shiny.app.data.csv", header=TRUE, sep=',')

ui <- dashboardPage(skin="red",
  dashboardHeader(title="PRIZM Segment Analysis", titleWidth=350),
  dashboardSidebar(width=350, 
                   sidebarMenu(menuItem("Segment Counts and Summaries", tabName="segments", icon=icon("pie-chart")),
                   menuItem("Raw Data", tabName="raw", icon=icon("book")),
                   menuItem("Plots", tabName="plots", icon=icon("line-chart")))),               
  dashboardBody(tabItems(
    tabItem(tabName="segments",
                box(DT::dataTableOutput("test"), width = 12, status="success", solidHeader = TRUE)))

))

server <- function(input, output, session) {
  is.num<- sapply(data, is.numeric)
  data[is.num] <-lapply(data[is.num], round,2)

  output$test <- DT::renderDataTable({
                datatable(data,
                extensions = c('ColReorder','Buttons'),
                options = list(colReorder = list(realtime = FALSE),scrollX = TRUE,dom = 'Bfrtip', buttons = I('colvis'), list(scrollX = TRUE)),
                rownames=FALSE,
                class = 'display cell-border', width=15)


    })
    }

    shinyApp <- shinyApp(ui, server)
    runApp(shinyApp, launch.browser=TRUE)

Ссылка: https://rstudio.github.io/shinydashboard/structure.html