Commit 4902813f authored by Kunst, Jonathan's avatar Kunst, Jonathan
Browse files

Revoked some test changes regarding rhandsontable in mod_table. Added argument...

Revoked some test changes regarding rhandsontable in mod_table. Added argument to fix columns in rhandsontable in mod_model_panel to make it explicit and remove warning message
parent f29a7645
......@@ -35,14 +35,14 @@ mod_import_panel_ui <- function(id){
# sets of DF to show upload being successful
tabsetPanel(
tabPanel('Phenotype',
mod_table_ui(ns('phenotype'), type = 'DT')),
mod_table_ui(ns('phenotype'))),
tabPanel('Linkage map',
selectInput(inputId = ns('choice_map'),
label = 'Select linkage group',
choices = 'Input map first'),
mod_table_ui(ns('linkmap'), type = 'DT')),
mod_table_ui(ns('linkmap'))),
tabPanel('SNP Dosage',
mod_table_ui(ns('snp'), type = 'DT'))
mod_table_ui(ns('snp')))
)
)
)
......
......@@ -155,7 +155,8 @@ mod_model_panel_server <- function(id, rv){
# editable cofactor table
output$cofactor_table <- renderRHandsontable(rhandsontable(rv$cofactor_df, useTypes = TRUE) %>%
hot_context_menu(
allowRowEdit = TRUE
allowRowEdit = TRUE,
allowColEdit = FALSE
)
)
......
......@@ -7,6 +7,7 @@
#' @noRd
#'
#' @importFrom shiny NS tagList
#' @importFrom rhandsontable rhandsontable rHandsontableOutput renderRHandsontable
mod_table_ui <- function(id){
ns <- NS(id)
tagList(
......
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