Kann CSV mit Shinydashboard App nicht anzeigen

Question

Ich fange gerade an, glänzend zu lernen, und ich habe ein Problem mit nur dem Anzeigen der hochgeladenen CSV. Ich konnte die Daten anzeigen, wenn ich kein Sidebar-Menü hatte, aber jetzt, wo ich versuche, meine App mit anderen Tabs zu erweitern, werden die Daten jetzt angezeigt. Stimmt etwas nicht mit meiner Formatierung? Mein Code ist beigefügt, und es könnte für alle csv verwendet werden. Dank

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

Es ist nur ein Tippfehler in Ihrem Code in tabName (man beachte die Hauptstadt N) innerhalb der 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) 

Referenz: https://rstudio.github.io/shinydashboard/structure.html#sidebar-menu-items-and-tabs