빛나는 dateRange 입력 - 범위에 제약 조건을 설정하십시오

Question

질문에 대한 답변은 dateRangeInput입니다.

나는 min/max, start/end 매개 변수에 대해 알고 있습니다.

주어진 범위에 제약 조건을 넣어야합니다. 차이는 end - start입니다. 특히 나는 사용자에게 평균을 계산할 가능성을 부여하고 start과 end 사이에 적어도 6 개월이 있는지 확인해야합니다.

어떻게하면 좋을까요?

는 (입력이 서로 ( this question에 대한 답을 참조). 여기 그러나, 우리는 datarangeInput[1]가 daterangeInput[2]에 의존 할에 의존해야하는 방법이있다 ...하지만이 두 꽤 별도 없습니다.)

편집 : 아래의 의견을 꽤 많이 원래 문구 (아래 참조)로 질문에 대답. 그러나 코드가 완전히 만족 스럽다면 입력 범위에 의존하는 다른 계산이 시작되기 전에 입력 범위가 서버에 의해 수정되었는지 어떻게 확인할 수 있습니까? 내 기존 솔루션 (아래 참조)을 사용하면 관찰자가 이미 값을 수정합니다. 이미 해당 시간에 시작된 결함 범위를 기반으로 계산

Answer 1

BigDataScientist 및 Mike Wise의 의견에 따라 this answer을 수정하여 문제를 해결했습니다. 결과는 daterangeInput의 결과 범위가 주어진 값 (여기서는 smallestWindow)보다 길어 지도록하는 서버 코드입니다.

rm(list=ls()) 
library(shiny) 

mindate <- "1980-01-01" 
maxdate <- Sys.Date() 
smallestWindow <- 18 * 31 
from <- maxdate - smallestWindow 

ui <- fluidPage(
    mainPanel(uiOutput("slider")) 
) 

server <- function(input, output, session) { 
    observeEvent(input$timeperiod,{ 
    if(input$timeperiod[1] > (input$timeperiod[2] - smallestWindow)){ 
     updateDateRangeInput(session, "timeperiod", start=input$timeperiod[2] - smallestWindow) 
    } 
    }) 

    output$slider <- renderUI({ 
    dateRangeInput("timeperiod", "Time Period:" 
        , min=as.Date(mindate), max=maxdate 
        , start = from , end = maxdate) 
    }) 

} 
shinyApp(ui, server)