Shinyの日付の空白入力を検出する方法

Question

R Shinyアプリケーションに一連の入力があり、関数の引数としてデータフレームから特定のデータを選択しています。入力の上日付入力である：私の機能で

dateInput("dateSelect", "Date", format = "yyyy-mm-dd", value = NA)

、私はdateSelectが空であるか、選択されていない場合はすべての日付を選択できるようにするには、指定する必要があります。 、それが日付ではありません、そしてシンプルなselectInput正しく動作している例を参照してください：

if(!missing(teamSelect)){ 
    if(teamSelect!="All"){ 
    selections[["teamEfforts"]] = 
    newEffortstable$effortNo[which(newEffortstable$team %in% teamSelect)] 
    }else{ 
    selections[["teamEfforts"]] = newEffortstable$effortNo 
    } 
    } 

Iを：機能で

selectInput("teamSelect", "Team", choices = c("All", levels(newEffortstable$team)))

、これは「すべてのチームの選択に努めていますNAとNULLと" "で以下となって維持しようとしている「場合にエラー：引数が長さがゼロである」

if(!missing(dateSelect)){ 
    if(!dateSelect== "NA"){ 
    selections[["dateEfforts"]] = 
    newEffortstable$effortNo[which(newEffortstable$date == dateSelect)] 
    }else{ 
    selections[["dateEfforts"]] = newEffortstable$effortNo 
    } 
    } 

ありがとう！

Answer 1

まだ試していない1つの選択肢があります：長さを確認してください。日付が指定されていない場合、dateInputは空のDateベクトルを返します。

if(length(input$dateSelect) == 0)を確認できますが、これは最も光沢のあるオプションではありません。あなたはすべての可能性をチェックするために持っていることを避けるために（すなわちNULL、NA、""、numeric(0)など）、あなたは以下の例のように機能isTruthy()を使用することができます。

shinyApp(
    ui = fluidPage(
    dateInput("dateSelect","Date"), 
    verbatimTextOutput("out"), 
    textOutput("text") 
), 
    server = function(input,output,session){ 

    output$text <- renderText({ 
     if(!isTruthy(input$dateSelect)){ 
     "NO DATE" 
     } else { 
     paste("The chosen date is:",input$dateSelect) 
     } 
    }) 
    output$out<- renderPrint({str(input$dateSelect)}) 
    } 
)