Commit 2df2f846 authored by Kunst, Jonathan's avatar Kunst, Jonathan
Browse files

Data table selection for multiple cvs of linkage map works

parent cf86b586
......@@ -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
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment