From e1c6c5636f9d26284ea0c53cd4249cb3a5bde82c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Todor=20Kondi=C4=87?= <todor.kondic@uni.lu>
Date: Fri, 8 May 2020 13:17:02 +0200
Subject: [PATCH] shiny-ui-config: Adapt other reactive functions to
state-building ones
* R/shiny-ui-config.R(gen_cmpd_inputs): Obsolete function removed.
(get_all_sets): Adapt to using the m_input_cmpds function.
---
R/shiny-ui-config.R | 13 +++++--------
1 file changed, 5 insertions(+), 8 deletions(-)
diff --git a/R/shiny-ui-config.R b/R/shiny-ui-config.R
index a379fdb..6bea081 100644
--- a/R/shiny-ui-config.R
+++ b/R/shiny-ui-config.R
@@ -123,13 +123,7 @@ mk_ui_config <- function() {
react_conf_f <- function(input,output,session,rv,rf) {
## Reactive functions.
- rf$gen_cmpd_inputs <- react_f({
- rv$m$conf$compounds$known
- rv$m$conf$compounds$unknown
- rv$m$conf$compounds$sets
- verify_compounds(rv$m$conf)
- load_compound_input(rv$m)
- })
+
rf$get_tags_from_txt <- react_f({
## Tags in the text box.
@@ -147,7 +141,10 @@ react_conf_f <- function(input,output,session,rv,rf) {
dtable(rf$ctrl2mzml_df())
})
- rf$get_all_sets <- react_e(rv$m$input$tab$setid,unique(rv$m$input$tab$setid$set))
+ rf$get_all_sets <- react_f({
+ m <- rf$m_input_cmpds()
+ unique(m$input$tab$setid$set)})
+
rf$m_conf <- react_f({
m <- list()
m$conf$project <- rv$project_path
--
GitLab