Shinydashboard 앱으로 CSV를 볼 수 없습니다.

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

그것을 menuItem 내 tabName의 코드에서 단지 오타 (자본 N 통지는)입니다 :

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) 

참조 : 당신은 당신의 컴퓨터에있는 CSV를 보려는 https://rstudio.github.io/shinydashboard/structure.html#sidebar-menu-items-and-tabs