Taking data from one table and using it in another table.

[nikb999]

I am working on a Shiny app where the user provides inputs in a series of editable tables. In Table 1 the user provides a list of last names. Now in Table 2, I would like to show the last names from table 1 from a drop down menu. This is where I am having issues. If I give a static list, the code for Table 2 works. However, when I try to use the unique values of last names from table 1, the code fails.

Any thoughts on what I am doing wrong.

Thanks.

Here is the sample code that I am trying.

library(shiny)
library(DataEditR)
library(tidyverse)

# Define UI for application
ui <- fluidPage(

    # Application title
    titlePanel("simple example")
    
    , actionButton("go_1", "Go")
    , br()
    , dataEditUI("table_1")
    , br()
    , textOutput("msg_1")
    , br()
    , actionButton("go_2", "Go to table 2")
    , br()
    , dataEditUI("table_2")
)

# Define server logic 
server <- function(input, output, session) {

  table_1_df <- dataEditServer(
    "table_1"
    , data = eventReactive(input$go_1, {
      data.frame('id'=rep(c(1:5)))
    })
    , title = 'Table 1'
    , hide = TRUE
    , col_edit = FALSE
    , col_names = FALSE
    , col_readonly = c('id')
    , col_bind = c('last_name')
    )

  output$msg_1 <- renderPrint(  str(table_1_df())   )
  
  last_names_list <- eventReactive(input$go_1,{
    unique(table_1_df$last_name)
  })
  
  table_2_df <- dataEditServer(
    "table_2"
    , data = eventReactive(input$go_2, {
      data.frame('id2'=rep(c(1:5)))
    })
    , title = 'Table 1'
    , hide = TRUE
    , col_edit = TRUE
    , col_names = FALSE
    , col_readonly = c('id2')
    , col_bind = c('last_name','first_name')
    , col_options = c(
      'last_name' = list( c('a','b') )   
      #'last_name' = list( last_names_list )
      )
  )

}

# Run the application 
shinyApp(ui = ui, server = server)