Shiny dashboard R:使用标题excel文件作为输入选择输入字段

问题描述 投票:0回答:1

目前,我正在做一个非常简单的Shiny仪表盘,但由于我对它相当陌生,我仍然无法使它工作。我想创建一个仪表盘,用户可以选择一个文件。在选择一个文件后,这个文件的头的名字必须被用作一个 SelectInput 领域。

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      fileInput('datafile', 'Choose xlsx file',
                accept = c(".xlsx")
      ),
      selectInput("vars", "Select a variable:", choices=names("varselect"),
                  multiple = TRUE)    
    ),
    mainPanel(


    )
  )
)

server <- function(input, output,session) {

  Dataset <- reactive({
    infile <- input$datafile
    if (is.null(infile)) {
      return(data.frame())
    }
    read.xlsx(infile$datapath, 
              sheetIndex = 1) 

  })

  output$varselect <- renderUI({

  })
  observe({
    if (identical(Dataset(), '') || identical(Dataset(), data.frame()))


      updateSelectInput(session, inputId="vars", label="Variables to use:",
                        choices=names(Dataset()), selected=names(Dataset()))
  })
  }



shinyApp(ui = ui, server = server)

谁能帮我解释一下我做错了什么,如何才能最有效地解决这个问题?

先谢谢你

r shiny dashboard
1个回答
0
投票

你是完全正确的,删除它后,它是工作。谢谢你!我想建立一个用户可以选择文件的仪表板。

ui <- fluidPage(   sidebarLayout(
    sidebarPanel(
      fileInput('datafile', 'Choose xlsx file',
                accept = c(".xlsx")
      ),
      selectInput("vars", "Select a variable:", choices=names("varselect"),
                  multiple = TRUE)    
    ),
    mainPanel(


    )   ) )

server <- function(input, output,session) {
     Dataset <- reactive({
    infile <- input$datafile
    if (is.null(infile)) {
      return(data.frame())
    }
    read.xlsx(infile$datapath, 
              sheetIndex = 1) 
       })
     output$varselect <- renderUI({
       })   observe({



    updateSelectInput(session, inputId="vars", label="Variables to use:",
                        choices=names(Dataset()), selected=names(Dataset()))   }) }



shinyApp(ui = ui, server = server)
© www.soinside.com 2019 - 2024. All rights reserved.