如何根据参数化 rmarkdown 报表上的另一个输入刷新 sliderInput

问：

我正在做月度报告，并希望根据我从下拉列表中选择的年份动态刷新滑块。我的数据集范围从 2005 年到 2015 年，滑块当前显示 2012 年的数据。双重问题，如何将 sliderInput 刷新到 2010 以及如何将 Year 下拉控件限制为仅显示数据集上的年份（2005 年至 2015 年）？ 下面是 yaml 和屏幕截图：

---
title: "Salmon Program"
date: "`r format(Sys.Date())`"
output:
  pdf_document:
    toc: yes
    toc_depth: '4'
  html_document:
    toc: yes
    toc_depth: '4'
    keep_md: yes
params:
  glimpse: no
  Runs:
    label: Salmon Runs
    value:
    - Winter
    - Spring
    - Fall
    - LateFall
    input: select
    choices:
    - Winter
    - Spring
    - Fall
    - LateFall
    multiple: yes
  Year: 2012  
  Dates:
    input: slider
    min: !r as.Date("2012-01-01") #Can this be dynamically changed based on the report dates?
    max: !r as.Date("2012-12-31")
    value: !r c(as.Date("2012-01-01"), as.Date("2012-01-30")) 
    step: 30
---