すべてのオプションが選択されている場合は、シャイニーのみでフィルタリングされます

Question

私は最終的にプロットをユーザー入力に反応させる方法を見つけました...残念ながら、ユーザーは今年の年の範囲、ゴルファー、コースを選択する必要があります。私は彼らがほんの一年とゴルファー、または彼らが望むなら年とコースだけでフィルタリングできるようにしたい。何かが記入されていなくてもプロットを返すように私のコードを修正するには？私はまだこれでかなり新しいですので、どんな助けも大いに評価されるでしょう！ありがとう！

は、私が実際にこれをテストすることはできませんコードのビットより多くを見ることなく、ヒストグラム

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

    updateSelectizeInput(session, inputId = 'golfer', choices = dkDatabase$Golfer, selected = "Woodland, Gary", server = TRUE) 
    updateSelectizeInput(session, inputId = 'course', choices = dkDatabase$Course, server = TRUE) 

    output$points <- renderPlot({ 
    dkDatabase %>% 
    filter(dkDatabase$Year >= input$year[1], 
     dkDatabase$Year <= input$year[2], 
     dkDatabase$Golfer == input$golfer, 
     dkDatabase$Course == input$course) %>% 
    ggplot(aes(dkPoints)) + geom_histogram(fill="green", colour = "black") + 
    xlab("DK Points") + 
    ylab("Events") 
    }) 
} 

Answer 1

を描画するために必要なサーバー・ロジックを定義し、それはいくつかの小さな変更で動作するはずです。 UIコードで

、あなたのデフォルトを設定する入力を選択：if文

selectInput(..., Choose = '') 

そして、サーバー側のコードでは、あなたがシングルを使用するならば（私の頭の上をオフに思い出すことができません追加引用符、二重引用符またはnullでテストそれらのすべてのアウトと1が動作するはずです）：

if (input$golfer == '') { 
dkDatabase %>% 
filter(dkDatabase$Year >= input$year[1], 
     dkDatabase$Year <= input$year[2], 
     dkDatabase$Course == input$course) 
} 
else if (input$Course == ''){ 
dkDatabase %>% 
filter(dkDatabase$Year >= input$year[1], 
     dkDatabase$Year <= input$year[2], 
     dkDatabase$Golfer == input$golfer) 
} 
else { 
dkDatabase %>% 
    filter(dkDatabase$Year >= input$year[1], 
     dkDatabase$Year <= input$year[2], 
     dkDatabase$Golfer == input$golfer, 
     dkDatabase$Course == input$course) 
} 

output$points <- renderPlot({ 
    ggplot(aes(dkPoints())) + geom_histogram(fill="green", colour = "black") + 
    xlab("DK Points") + 
    ylab("Events") 
    }) 

私は年が上で入力されていない場合はどうするか対応していませんでしたが、私は何だろうが自動的に設定されています開始日と終了日にすべてのデータを含めることができます。ユーザーは必要に応じて変更できます。