title: How to save the inputs, inside Data Frame which is inside the list?
body: <p>I tried to keep reprex as simple as possible.</p>
  <p>I want to save with the <strong>ADD</strong> button currently chosen inputs, inside Data Frame <em>(selected by index passed by userId input)</em>, which is inside the list, and later on use this Data Frame to render a table (in the final app make a plot).</p>
  <p>Here I figured out, how to save values inside the data frame. <em>(not data frame inside a list)</em><br />
  <a href="https://stackoverflow.com/questions/71881012/how-to-save-input-to-data-frame-and-use-it-later-in-shiny?noredirect=1#comment127022209_71881012">How to save input to data frame, and use it later in Shiny?</a></p>
  <p>Now <strong>Add</strong> button returns this:<br />
  <em>Warning: Error in choosen_user: unused argument (rbind(choosen_user(), new_day_rate()))</em> &lt;- this is propably because I used <code>reactive()</code> not <code>reactiveVal()</code>, <strong>but</strong> with <code>reactiveVal()</code> there is this error:</p>
  <p><em>Warning: Error in .getReactiveEnvironment()$currentContext: Operation not allowed without an active reactive context.
  You tried to do something that can only be done from inside a reactive consumer.</em></p>
  <pre><code>library(shiny)
  
  # Saved_users_list normally came from external file
  saved_users_list &lt;- list(data.frame(date = c(as.Date(&quot;2022-04-18&quot;),
                                         as.Date(&quot;2022-04-19&quot;)),
                                rate = c(8,1),
                                day_comment = c(&quot;Found a gf&quot;,
                                                &quot;Broke my arm&quot;)),
                     data.frame(date = c(as.Date(&quot;2022-04-18&quot;),
                                         as.Date(&quot;2022-04-19&quot;)),
                                rate = c(10,1),
                                day_comment = c(&quot;Found a job&quot;,
                                                &quot;They fired me&quot;)))
  
  
  ui &lt;- fluidPage(
    sidebarLayout(
      sidebarPanel(
        selectInput(&quot;userId&quot;, &quot;userId&quot;, choices = c(1:2)),
        sliderInput(&quot;day_rate&quot;, &quot;Rate your day&quot;, min = 0, max = 10, value = 5, step = 0.5),
        dateInput(&quot;date&quot;, &quot;Pick a date&quot;),
        textAreaInput(&quot;comment&quot;, &quot;Comment&quot;, placeholder = &quot;Add a description (OPTIONAL)&quot;),
        actionButton(&quot;add&quot;, &quot;Add&quot;),
        actionButton(&quot;test&quot;, &quot;Test values&quot;) # Button to test inputs values
        ),
      mainPanel(
        tableOutput(&quot;test_table&quot;)
      )
      )
    )
  
  server &lt;- function(input, output, session) {
    
    users_list &lt;- reactiveVal(saved_users_list)
    selected_user &lt;- reactive(as.numeric(input$userId))
    
    output$test_table &lt;- renderTable({
      users_list()[selected_user()]
    })
    
      new_day_rate &lt;- reactive(list(data.frame(date = input$date,
                                               rate = input$day_rate,
                                               day_comment = input$comment)))
      
      choosen_user &lt;- reactive(users_list()[[selected_user()]])
      
      # Button to add values to the data frame inside users_list
      observeEvent(input$add, {
      # users_list()[[selected_user()]]  &lt;- rbind(users_list()[[selected_user()]], as.data.frame(new_day_rate())) # Error in &lt;-: invalid (NULL) left side of assignment
  
      choosen_user(rbind(choosen_user(), new_day_rate())) # Here I tried to implement a solution from linked question 
    })
    
    # Button to test inputs values
    observeEvent(input$test, {
      message(&quot;userId: &quot;, input$userId, &quot; &quot;, class(input$userId))
      message(&quot;selected_user(): &quot;, selected_user())
      message(&quot;new_day_rate(): &quot;, new_day_rate())
      message(&quot;str(new_day_rate()): &quot;, str(new_day_rate()))
      message(&quot;users_list()[[selected_user()]]: &quot;,users_list()[[selected_user()]])
    })
  }
  
  shinyApp(ui, server)
  </code></pre>