Fixed a small change so that all selects start with select_ in rv object

polyploid_vis/app.R

@@ -204,7 +204,7 @@ server <- function(input, output, session) {
   output$table_phenotype <- DT::renderDataTable(phenotype())
   
   # table for linkage map file(s)
-  output$table_link_map <- DT::renderDataTable(link_map()[[rv$linkage_select()]])
+  output$table_link_map <- DT::renderDataTable(link_map()[[rv$select_map()]])
   
   # table for SNP dosage 
   output$table_dosage <- DT::renderDataTable(dosage())