title: different column from radio button in shiny
body: <p>)</p>
  <p>im quite new to R and also Shiny, but let me explain my current problem.</p>
  <p>I have a csv file that looks like this:</p>
  <div class="s-table-container">
  <table class="s-table">
  <thead>
  <tr>
  <th style="text-align: left;">Week</th>
  <th style="text-align: center;">First</th>
  <th style="text-align: right;">Second</th>
  <th style="text-align: right;">Third</th>
  </tr>
  </thead>
  <tbody>
  <tr>
  <td style="text-align: left;">1</td>
  <td style="text-align: center;">11</td>
  <td style="text-align: right;">22</td>
  <td style="text-align: right;">33</td>
  </tr>
  <tr>
  <td style="text-align: left;">2</td>
  <td style="text-align: center;">44</td>
  <td style="text-align: right;">55</td>
  <td style="text-align: right;">66</td>
  </tr>
  <tr>
  <td style="text-align: left;">3</td>
  <td style="text-align: center;">77</td>
  <td style="text-align: right;">88</td>
  <td style="text-align: right;">99</td>
  </tr>
  </tbody>
  </table>
  </div>
  <p>I allrdy created a line chart that shows me on the x-line the &quot;Week&quot; and on the y-line the column &quot;First&quot;.
  i also implemented that i can access the range between the weeks, so that I can choose what Data i want to see (f.E only week 2 - 3 or 1 - 2)</p>
  <p>What im now trying to do now is the following,
  Ive set up some radio buttons...</p>
  <pre><code>radioButtons(&quot;typeInput&quot;, &quot;Choose&quot;,
                choices = c(&quot;First&quot;, &quot;Second&quot;, &quot;Third&quot;),
                selected = &quot;First&quot;))
  </code></pre>
  <p>And Im trying to make it interactive, so that when I choose Radiobutton &quot;Second&quot; i want to see the data from the column &quot;second&quot; on the line chart compared to the column &quot;Week&quot; which will be selected at all time</p>
  <p>This is my Server Code so far:</p>
  <pre><code>server &lt;- function(input, output) {
  output$PLOT &lt;- renderPlot({
      filtered &lt;-
        Data %&gt;%
        filter(week&gt;= input$Weekinput[1],
               week&lt;= input$Weekinput[2]
        )
      ggplot(filtered, aes(week, First)) +
        geom_line()
    })
  }
  </code></pre>
  <p>Does anyone has an Idea how I can get to this result?</p>