Data table selection for multiple cvs of linkage map works

polyploid_vis/app.R

@@ -118,6 +118,10 @@ load_file <- function(name, path){
 
 # Server ----
 server <- function(input, output, session) {
+  # initiate reactive values object
+  rv <- reactiveValues()
+  rv$linkage_select <- NULL
+  
   # Read Data ----
   # Phenotype
   phenotype <- reactive({
@@ -140,7 +144,8 @@ server <- function(input, output, session) {
     updateSelectInput(session, 'map_choice', label = 'Linkage Groups', choices = file_list)
   })
   
-  
+  # retrieve table selection
+  rv$linkage_select <- eventReactive(input$map_choice, {fname <- input$map_choice})
   
   # SNP Dosage data
   dosage <- reactive({
@@ -152,16 +157,12 @@ server <- function(input, output, session) {
   # table for phenotype
   output$table_phenotype <- DT::renderDataTable(phenotype())
   
-  # tables for linkage map
-  output$table_link_map <- eventReactive(input$map_choice,
-                                        {fname <- input$map_choice
-                                         DT::renderDataTable(link_map()[fname][[1]])
-                                         })
+  # table for linkage map file(s)
+  output$table_link_map <- DT::renderDataTable(link_map()[rv$linkage_select()][[1]])
   
   # test text
   output$text_link_map <- eventReactive(input$map_choice,
-                                        {fname <- input$map_choice
-                                         print(names(link_map()[fname][[1]]))
+                                        {print(names(link_map()[rv$linkage_select()][[1]]))
                                           })
   
   # table for SNP dosage