From 4e6645f577c44d6ea2d411ef4aacaa3a6c6bbe3e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Todor=20Kondi=C4=87?= <kontrapunkt@uclmail.net>
Date: Thu, 26 Jan 2023 15:00:47 +0100
Subject: [PATCH] app: inputs_metfrag: Predefine metfrag inputs.

* inputs_metfrag: New file.
---
 DESCRIPTION        |  1 +
 R/inputs_metfrag.R | 77 ++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 78 insertions(+)
 create mode 100644 R/inputs_metfrag.R

diff --git a/DESCRIPTION b/DESCRIPTION
index 2059e21..6f0ba6c 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -46,6 +46,7 @@ Roxygen: list(markdown = TRUE)
 Collate:
     'base.R'
     'resources.R'
+    'inputs_metfrag.R'
     'errors.R'
     'mix.R'
     'envopts.R'
diff --git a/R/inputs_metfrag.R b/R/inputs_metfrag.R
new file mode 100644
index 0000000..4d84051
--- /dev/null
+++ b/R/inputs_metfrag.R
@@ -0,0 +1,77 @@
+mk_shiny_control <- function(name,fun,args) {
+    content = do.call(what=fun,args=c(list(inputId=name),args))
+    res = list(name=name,
+               fun=fun,
+               content=content)
+    res
+}
+
+INPUTS_METFRAG_NUMERIC = list(mk_shiny_control(name="mf_database_search_relative_mass_deviation",
+                                               fun="numericInput",
+                                               args=list(label="Database search relative mass deviation",
+                                                         value=5)),
+                              mk_shiny_control(name="mf_fragment_peak_match_absolute_mass_deviation",
+                                               fun="numericInput",
+                                               args=list(label="Fragment peak match absolute mass deviation",
+                                                         value=METFRAG_DEFAULT_ABSMASSDEV)),
+                              mk_shiny_control(name="mf_fragment_peak_match_relative_mass_deviation",
+                                               fun="numericInput",
+                                               args=list(label="Fragment peak match relative mass deviation",
+                                                         value=METFRAG_DEFAULT_RELMASSDEV)),
+                              mk_shiny_control(name="mf_maximum_tree_depth",
+                                               fun="numericInput",
+                                               args=list(label="MaximumTreeDepth",
+                                                         value=METFRAG_DEFAULT_MAX_TREE_DEPTH)))
+
+INPUTS_METFRAG_SELECT = list(mk_shiny_control(name="mf_pre_processing_candidate_filter",
+                                              fun="selectInput",
+                                              args=list(label="Preprocessing candidate filter",
+                                                        choices=shinyscreen:::METFRAG_PREPFLT_CHOICES,
+                                                        selected=shinyscreen:::METFRAG_PREPFLT_DEFAULT,
+                                                        multiple=T)),
+                             mk_shiny_control(name="mf_post_processing_candidate_filter",
+                                              fun="selectInput",
+                                              args=list(label="Postprocessing candidate filter",
+                                                        choices=shinyscreen:::METFRAG_POSTPFLT_CHOICES,
+                                                        selected=shinyscreen:::METFRAG_POSTPFLT_DEFAULT,
+                                                        multiple=T)),
+                             mk_shiny_control(name="mf_metfrag_candidate_writer",
+                                              fun="selectInput",
+                                              args=list(label="MetFrag Candidate Writer",
+                                                        choices=shinyscreen:::METFRAG_WRITER_CHOICES,
+                                                        selected=shinyscreen:::METFRAG_DEFAULT_WRITER)),
+                             mk_shiny_control(name="mf_database_type",
+                                              fun="selectInput",
+                                              args=list(label="Database type",
+                                                        choices=METFRAG_DATABASE_TYPE,
+                                                        selected=METFRAG_DEFAULT_DATABASE_TYPE)),
+                             mk_shiny_control(name="mf_local_database",
+                                              fun="selectInput",
+                                              args=list(label="Local Database",
+                                                        choices=character(0))),
+                             mk_shiny_control(name="mf_local_db_col_ident",
+                                              fun="selectInput",
+                                              args=list(label="Select Identifiers",
+                                                        multiple = T,
+                                                        choices=character(0))),
+                             mk_shiny_control(name="mf_local_db_col_coll",
+                                              fun="selectInput",
+                                              args=list(label="Identifiers for sets of results",
+                                                        multiple = T,
+                                                        choices=character(0))),
+                             mk_shiny_control(name="mf_scores_intrinsic",
+                                              fun="selectInput",
+                                              args=list(label="Select Scoring Types",
+                                                        choices = METFRAG_INTRINSIC_SCORES,
+                                                        multiple = T,
+                                                        selected = names(METFRAG_DEFAULT_SCORES))),
+                             mk_shiny_control(name="mf_local_db_col_scores",
+                                              fun="selectInput",
+                                              args=list(label="Select local scoring terms",
+                                                        multiple = T,
+                                                        choices=character(0))))
+
+
+INPUTS_METFRAG = c(INPUTS_METFRAG_NUMERIC, INPUTS_METFRAG_SELECT)
+
+names(INPUTS_METFRAG) = sapply(INPUTS_METFRAG, function(x) x[["name"]])
-- 
GitLab