r - 根据数据设置 dateRangeInput 最小值/最大值

Question

我的问题与 Using dynamic dates in Shiny dateRangeInput 有关，但是我仍然不确定如何解决这个问题。我的代码如下所示:

data <- read.csv('data.csv')
#data has a column named 'date' which has a min value of 2002-01-01 and a max of 2016-03-01.   

ui <- fluidPage(
  dateRangeInput(inputId='daterange', label='Select Model Build Period', 
    min = min(data$date), max = max(data$date)
  )
)

但是，这不起作用，似乎无法在 中为 dateRangeInput 设置 min 和 max ui 基于数据框或向量。有没有办法做到这一点？

Answer 1

因为您正在使用数据动态定义日期范围，所以您需要在 server.R 中呈现 dateRangeInput，使用 renderUI

所以在 server.R 中你将拥有

data <- read.csv('data.csv')

output$daterange <- renderUI({

    dateRangeInput(inputId='daterange', 
                   label='Select Model Build Period', 
                   min = min(data$date), 
                   max = max(data$date)
                  )

})

在 ui.R 中你将拥有

ui <- fluidPage(
    ....
    uiOutput("daterange")
    ....
)