title: Making a Leaderboard in R Shiny
body: <p>I am attempting to make a leaderboard in R Shiny for my school where users could submit their name, teacher's name, and their score in textInputs by clicking an actionButton. I am having trouble with the following:</p>
  <p>a) Making the textInputs submit on the push of the actionButton (I know I should use the isolate function, but have no idea where/when/how)</p>
  <p>b) Storing the info the user inputs with the data frame so that when the app opens on a second device it still shows the info the first person uses</p>
  <p>My code is below:</p>
  <pre><code>### Libraries
  library('tidyverse')
  library('readxl')
  library('shiny')
  library('DT')
  
  
  
  # Define UI 
  ui &lt;- fluidPage(
      
      # Application title
      titlePanel(&quot;Scoreboard&quot;),
      
      # Sidebar 
      sidebarLayout(
          sidebarPanel(
              h5(&quot;Sidebar Text&quot;),
          ),
          
          # Main Panel
          mainPanel(
              tabsetPanel(type = &quot;tabs&quot;,
                          tabPanel(&quot;Add Score&quot;, 
                          textInput(&quot;name_input&quot;, &quot;Insert Your Name Below&quot;),                                           textInput(&quot;teacher_input&quot;, &quot;Insert Your Teacher's Last Name Below&quot;),
                          textInput(&quot;score_input&quot;, &quot;Insert Your Score Below&quot;),
                          actionButton(&quot;sumbit_button&quot;, &quot;Click Button to Submit!&quot;)
                          ),
                          tabPanel(&quot;ScoreBoard&quot;, dataTableOutput(&quot;score_table&quot;))
                         )
          )
      )
  )
  
  # Define server logic 
  server &lt;- function(input, output) {
      
      # Read In Sample Scores as a base dataframe to add user inputs to. 
      scores &lt;- read_excel(&quot;Sample_Scores.xlsx&quot;)
      scores &lt;- scores[order(scores$Scores, decreasing = FALSE),]
      names(scores) &lt;- c(&quot;Score&quot;, &quot;Name&quot;, &quot;Teacher&quot;)
      
      output$score_table &lt;- renderDataTable({
          
          new_score &lt;- input$score_input
          new_name &lt;- input$name_input
          new_teacher &lt;- input$teacher_input
          
          new_student &lt;- c(new_score, new_name, new_teacher)
          
          scores &lt;- rbind(scores, new_student)
          
          })
  }
  
  # Run the application 
  shinyApp(ui = ui, server = server)
  </code></pre>