title: R/ Shiny - How to get current year with Sys.Date()?
body: <p>How can I get current year with Sys.Date()? </p>
  
  <p>I have this code below,</p>
  
  <pre><code>      selectInput(
          inputId = "year",
          label = "Year:",
          choices = c(2014:Sys.Date())
          )
  </code></pre>
  
  <p>result,</p>
  
  <pre><code>&lt;select id="year"&gt;&lt;option value="2014" selected&gt;2014&lt;/option&gt;
  &lt;option value="2015"&gt;2015&lt;/option&gt;
  &lt;option value="2016"&gt;2016&lt;/option&gt;
  &lt;option value="2017"&gt;2017&lt;/option&gt;
  &lt;option value="2018"&gt;2018&lt;/option&gt;
  &lt;option value="2019"&gt;2019&lt;/option&gt;
  &lt;option value="2020"&gt;2020&lt;/option&gt;
  ....
  &lt;option value="16582"&gt;16582&lt;/option&gt;&lt;/select&gt;
  </code></pre>
  
  <p>But I just need,</p>
  
  <pre><code>&lt;select id="year"&gt;
      &lt;option value="2014" selected&gt;2014&lt;/option&gt;
      &lt;option value="2015"&gt;2015&lt;/option&gt;
  &lt;/select&gt;
  </code></pre>
  
  <p>Any ideas?</p>