Commit 5423ddff authored by Kunst, Jonathan's avatar Kunst, Jonathan
Browse files

Minor changes in selection of points in plotly, removing test tab

parent c1e57254
......@@ -8,3 +8,5 @@ $run_dev.*
^CODE_OF_CONDUCT\.md$
^doc$
^Meta$
^app\.R$
^rsconnect$
......@@ -12,6 +12,7 @@ Imports:
golem (>= 0.3.1),
htmltools,
parallel,
pkgload,
polyqtlR,
processx,
readr,
......
......@@ -33,7 +33,4 @@ app_server <- function( input, output, session ) {
# Modelling panel ----
mod_model_panel_server("model_panel_ui_1", rv = rv)
# REMOVE: TEST PANEL ----
mod_test_panel_server("test_panel_ui_1", rv = rv)
}
......@@ -8,8 +8,10 @@ app_ui <- function(request) {
tagList(
# Leave this function for adding external resources
golem_add_external_resources(),
# Your application UI logic
navbarPage(title = 'Polyploid QTL visualisation', inverse = TRUE,
navbarPage(title = 'QTLvis', inverse = TRUE,
# Input panel ----
tabPanel('Data import',
mod_import_panel_ui('import_panel_ui_1')
......@@ -23,11 +25,7 @@ app_ui <- function(request) {
# Model panel ----
tabPanel('Model',
mod_model_panel_ui("model_panel_ui_1")
),
# REMOVE: test panel ----
tabPanel('TEST',
mod_test_panel_ui("test_panel_ui_1"))
)
)
)
}
......
......@@ -15,6 +15,7 @@ load_file <- function(name, path){
switch(extension,
csv = read_csv(path),
rds = read_rds(path),
RDS = read_rds(path),
validate('Invalid file type, please use .csv or .rds'))
}
......
......@@ -144,7 +144,7 @@ mod_qtl_plotly_panel_server <- function(id, rv){
event_df <- event_data('plotly_selected')
if (is.null(event_df)) return('select points')
rv$plot_df %>%
filter(cM %in% event_df$x & round(stat) %in% round(event_df$y))
filter(cM %in% event_df$x & stat %in% event_df$y |cM %in% event_df$x & centered %in% event_df$y)
})
})
}
......
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