diff --git a/R/shiny-ui-config.R b/R/shiny-ui-config.R index 2e0b5135c5a23e33ca748b1eebc2f97dc7da4d1f..a379fdbc51babb59f2f71cfc4a4203873e0bdd3b 100644 --- a/R/shiny-ui-config.R +++ b/R/shiny-ui-config.R @@ -148,7 +148,34 @@ react_conf_f <- function(input,output,session,rv,rf) { }) rf$get_all_sets <- react_e(rv$m$input$tab$setid,unique(rv$m$input$tab$setid$set)) + rf$m_conf <- react_f({ + m <- list() + m$conf$project <- rv$project_path + m$conf$compounds$known <- input$known + m$conf$compounds$unknown <- input$unknown + m$conf$compounds$sets <- input$sets + m$conf$data <- input$datafiles + verify_compounds(m$conf) + m + }) + + rf$m_input_cmpds <- react_f({ + m <- rf$m_conf() + load_compound_input(m) + }) + + rf$m_input <- react_f({ + m <- rf$m_input_cmpds() + mzml <- rf$ctrl2mzml() + verify_data_df(mzml=mzml,all_sets=rf$get_all_sets()) + m$input$tab$mzml <- mzml + m + }) + + + rf$m <- react_f(rf$m_input()) + rf }