rinyuアプリで指定されたselectizeInputのデフォルト値がないときのエラーメッセージ

Question

ここに私の問題を説明する簡単なアプリがあります。デフォルト値を指定せずにselectizeInputを使用すると、メインパネルは単にエラーメッセージを表示します。何も選択しなければ空のプロットが必要です。コードを変更するにはどうすればよいですか？何もselectizeInputに選択されていない場合、あなたが不正な構文で文字列mtcars$にeval(parse())を呼び出すよう

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

は、入力の値は、""です。 eval(parse())は使用しないでください。ヒストグラムをプロットしようとする前に入力値を検証してください。サーバーに：あなたがメッセージを表示したくない場合は

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

、あなただけhistを呼び出す前にreq(input$var)を行うことができます。