目前,我正在做一个非常简单的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)
谁能帮我解释一下我做错了什么,如何才能最有效地解决这个问题?
先谢谢你
你是完全正确的,删除它后,它是工作。谢谢你!我想建立一个用户可以选择文件的仪表板。
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)