모든 옵션이 선택된 경우에만 반짝임으로 필터링 됨

Question

마침내 사용자 입력에 반응하는 플롯을 얻는 방법을 알아 냈습니다 ... 불행히도 사용자는 올해 범위, 골퍼 및 코스를 선택해야합니다 . 나는 그들이 원하면 1 년이나 골퍼로, 또는 1 년이나 과정으로 걸러 내기를 원합니다. 어떤 코드가 채워지지 않은 경우에도 플롯을 반환하도록 코드를 수정하려면 어떻게해야합니까? 내가 아직 이대로 꽤 도움이되는 어떤 도움이라도 대단히 감사 할 것입니다! 감사!

내가 정말이 테스트 할 수 없습니다 코드의 좀 더 보지 않고 히스토그램

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

을 그리는 데 필요한 서버 로직을 정의하지만, 몇 가지 작은 수정을 작동합니다. 당신은 단일 사용하는 것입니다 경우 문 (내 머리 위로를 불러올 수없는 경우

selectInput(..., Choose = '') 

그리고 서버 측 코드에 추가 : UI를 코드에서

는 기본 입력을 선택 설정 따옴표, 큰 따옴표 또는 널 (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") 
    }) 

내가 해 위를 입력하지 않을 경우 어떻게 할 것인지를 해결하지만, 내가 무엇을 할 것이라고하는 것은 자동으로 설정하지 않았다 모든 데이터를 포함하는 시작 날짜와 종료 날짜, 그리고 사용자가 원하는대로 변경할 수 있습니다.