闪亮的R选择输入不起作用

Question

我正在尝试用R（第一次使用）在R中构建应用程序。

步骤1：读取Csv数据 步骤2：每个变量的直方图 步骤3：进一步分析。

我能够读取csv数据，但无法在selectinput中显示数据的colname。

代码正在运行，但变量名称的显示不起作用。 我的代码是：

library(shiny) 
ui<-navbarPage("Model Developement by Subhasish", 
      tabPanel("Data Import",sidebarLayout(sidebarPanel(fileInput("file","Upload your CSV",multiple = FALSE), 
                   tags$hr(), 
                   h5(helpText("Select the read.table parameters below")), 
                   checkboxInput(inputId = 'header', label = 'Header', value = FALSE), 
                   checkboxInput(inputId = "stringAsFactors", "stringAsFactors", FALSE), 
                   radioButtons(inputId = 'sep', label = 'Separator', choices = c(Comma=',',Semicolon=';',Tab='\t', Space=''), selected = ',') 
      ), 
      mainPanel(uiOutput("tb1")) 
      )), 
      tabPanel("Histogram",sidebarLayout(sidebarPanel(
      selectInput("headers","Select variable to view Histogram",choices =as.list(names(data)),multiple = FALSE)),mainPanel("mainpanel"))), 
      tabPanel("More") 
) 
server<-function(input,output) { data <- reactive({ 
    file1 <- input$file 
    if(is.null(file1)){return()} 
    read.table(file=file1$datapath, sep=input$sep, header = input$header, stringsAsFactors = input$stringAsFactors) 

}) 
output$table <- renderTable({ 
    if(is.null(data())){return()} 
    data() 
}) 
output$tb1 <- renderUI({ 
    tableOutput("table") 
}) 
} 
shinyApp(ui=ui,server=server) 

感谢您的帮助。

Answer 1

在这里我添加了一个例子，你可以继续。我用我的虚拟.csv文件进行了测试，所以它应该可以工作。我还为直方图添加了一些测试用例，因此您不会看到打印的错误。

添加以下改变

1. 我用renderUI创建selectInput称为头
2. 表输出是最好使用直接呈现的tableOutput("table")
3. 我添加的直方图作为你想要一个

例如：

library(shiny) 
ui<-navbarPage("Model Developement by Subhasish", 
       tabPanel("Data Import",sidebarLayout(sidebarPanel(fileInput("file","Upload your CSV",multiple = FALSE), 
                    tags$hr(), 
                    h5(helpText("Select the read.table parameters below")), 
                    checkboxInput(inputId = 'header', label = 'Header', value = FALSE), 
                    checkboxInput(inputId = "stringAsFactors", "stringAsFactors", FALSE), 
                    radioButtons(inputId = 'sep', label = 'Separator', choices = c(Comma=',',Semicolon=';',Tab='\t', Space=''), selected = ',') 
       ), 
       mainPanel(tableOutput("table")))), 
       tabPanel("Histogram",sidebarLayout(sidebarPanel(
       uiOutput("ui1")), 
       mainPanel(plotOutput("myhist")))), 
       tabPanel("More") 
) 
server<-function(input,output) { 

    data <- reactive({ 
    file1 <- input$file 
    if(is.null(file1)){return()} 
    read.table(file=file1$datapath, sep=input$sep, header = input$header, stringsAsFactors = input$stringAsFactors) 
    }) 

    output$table <- renderTable({ 
    if(is.null(data())){return()} 
    data() 
    }) 
    output$ui1 <- renderUI({ 
    selectInput("headers","Select variable to view Histogram",choices =as.list(names(data())),multiple = FALSE) 
    }) 

    output$myhist <- renderPlot({ 
    histdata <- suppressWarnings(as.numeric((data()[,names(data()) %in% input$headers]))) 
    histdata <- histdata[!is.na(histdata)] 
    if(length(histdata) == 0){ 
     return() 
    } 
    hist(histdata,breaks=10) 
    box();grid() 
    }) 
} 
shinyApp(ui=ui,server=server)