title: UpdateSelectInput by User Input
body: <p>First: Thanks for your help.</p>
  
  <p>The idea is to create a shiny app to track some kind of "Sports". Maybe more like tracking the results of a drinking game... Its called Funkyball where you throw a ball at a target, run and drink. My goal is to collect and analyze data of how well people throw, drink and run.</p>
  
  <p>The first tabPanel is to create some Player.</p>
  
  <pre><code>library(shiny)
  ui &lt;- fluidPage(
  
      mainPanel(tabsetPanel(
          tabPanel("All Player",
                   textInput("str_new_Player","New Player", ""),
                   actionButton("update", "add Player"),
                   tableOutput("tb_player")))))
  
      server &lt;- function(input, output) {
          values &lt;- reactiveValues()
  
          values$df &lt;- data.frame("Player" = numeric(0))
  
          newEntry&lt;- observe({
              if(input$update &gt; 0){
                  newLine &lt;- isolate(input$str_new_Player)
                  isolate(values$df[nrow(values$df) + 1,] &lt;- c(input$str_new_Player))
              }})
          output$tb_player &lt;- renderTable({values$df})}
  
      shinyApp(ui = ui, server = server)
  </code></pre>
  
  <p>So far so good. 
  In the second tabPanel you would choose the first and second Player depending on your created Players. Thats where I struggle.
  ui:</p>
  
  <pre><code>tabPanel("New Game",
     selectInput("Player_one", "Player 1", choices = "", selected = "")
  </code></pre>
  
  <p>server:</p>
  
  <pre><code>updateSelectInput(session, "Player_one",
                        label = paste("Player 1"),
                        choices = values$df,
                        selected = "")
  </code></pre>
  
  <p>I don't know how to insert the Choices from the updated table.</p>
  
  <p>Next step is adding some actionbuttons that fill a table with data if you click on them. Like hit or miss and a stopclock for measuring the time that people need per game.</p>