inst/shiny/read_delim/server.R

shinyServer(function(input, output, session) {

  rctval_temp <- reactiveValues(
    a = NULL,
    b = NULL
  )

  chord_tbl_1$server_model(
    input, output, session,
    rctval_data = rctval_temp, item_data = "a"
  )
  chord_tbl_2$server_model(
    input, output, session,
    rctval_data = rctval_temp, item_data = "b"
  )

#  observe(print(rctval_temp$a))
#  observe(print(rctval_temp$b))


})
ijlyttle/shinychord documentation built on May 18, 2019, 3:41 a.m.