diff --git a/R/shiny-ui-config.R b/R/shiny-ui-config.R index 570573dc41619004b3c1e02fb68bf68f02ac6186..2f834bfb0a835ddceef4e920ebbcdae93dfa3569 100644 --- a/R/shiny-ui-config.R +++ b/R/shiny-ui-config.R @@ -134,7 +134,19 @@ react_conf_f <- function(input,output,session,rv,rf) { input$updTagsB isol(if (isTruthy(input$tagsInp)) unique(txt2tags(input$tagsInp)) else TAG_DEF) }) - + + rf$ctrl2mzml_df <- react_f({ + x <- tryCatch(rhandsontable::hot_to_r(input$mzMLtabCtrl),error=function(m) NULL) + shiny::req(x) + x + }) + + rf$ctrl2mzml <- react_f({ + dtable(rf$ctrl2mzml_df()) + }) + + rf$get_all_sets <- react_e(rv$m$input$tab$setid,unique(rv$m$input$tab$setid$set)) + rf }