在r閃亮應用中未指定selectizeInput中的默認值時出現錯誤消息

Question

這是一個簡單的應用程序來說明我的問題。 當我使用selectizeInput而不指定默認值時，主面板只會顯示一條錯誤消息。 如果沒有選擇，我需要一個空圖。 如何修改我的代碼？

library(shiny)
library(datasets)


ui <- fluidPage(

    sidebarLayout(
        sidebarPanel(
            selectizeInput('var', 'choose variable', 
                           choices = names(mtcars),
                           options = list(
                               placeholder = 'Please select an option below',
                               onInitialize = I('function() { this.setValue(""); }'))
                           )

        ),
        mainPanel(
            plotOutput('hist')
        )
    )

)


server <- function(input, output) {

    output$hist <- renderPlot ({
        hist (eval(parse(text=(paste0('mtcars$', input$var)))))
    })
}

shinyApp(ui, server)

Answer 1

如果在selectizeInput未選擇任何內容，則輸入的值為"" ，因此您在字符串mtcars$上調用eval(parse()) ，這是錯誤的語法。 您不應使用eval(parse()) ，而應在嘗試繪制直方圖之前（例如在服務器中eval(parse())驗證輸入值：

output$hist <- renderPlot ({
  validate(need(input$var, 'Choose a variable!'))
  hist(x = mtcars[[input$var]])
})

如果您不想顯示消息，則可以在調用hist之前執行req(input$var) 。