Mercurial > repos > recetox > recetox_aplcms_align_features

changeset 9:7b42ee54d757 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload for repository https://github.com/RECETOX/galaxytools/tree/master/tools/recetox_aplcms commit 0873c036d734782d2647b0eea84cd1a0658f5e58
author recetox
date Wed, 19 Jul 2023 00:27:03 +0000
parents 2d13fcae8b84
children 2b6bfa234d8b
files macros.xml utils.R
diffstat 2 files changed, 9 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/macros.xml	Thu Jun 22 11:45:30 2023 +0000
+++ b/macros.xml	Wed Jul 19 00:27:03 2023 +0000
@@ -1,5 +1,5 @@
 <macros>
-    <token name="@TOOL_VERSION@">0.11.0</token>
+    <token name="@TOOL_VERSION@">0.12.0</token>
     <xml name="requirements">
         <requirements>
             <requirement type="package" version="@TOOL_VERSION@">r-recetox-aplcms</requirement>
@@ -53,7 +53,7 @@
     </xml>
 
     <xml name="remove_noise_params">
-        <param name="min_pres" type="float" value="0.5" label="Minimal signal presence [fraction of scans]"
+        <param name="min_pres" type="float" value="0.5" label="Minimal signal presence [fraction of scans]" min="0.0" max="1.0"
                help="The minimum proportion of presence in the time period for a series of signals grouped by m/z to be considered a peak." />
         <param name="min_run" type="float" value="12" label="Minimal elution time [unit corresponds to the retention time]"
                help="The minimum length of elution time for a series of signals grouped by m/z to be considered a peak." />
@@ -81,9 +81,9 @@
                         help="The upper limit of the ratio range between the left-standard deviation and the right-standard deviation of the bi-Gaussian function to fit the data." />
             </section>
             <conditional name="sd_cut">
-                <param name="sd_cut_bounds" type="boolean" checked="false" truevalue="TRUE" falsevalue="FALSE" label="Standard deviations boundaries."
-                       help="Do not apply any limitations on the standard deviations." />
-                <when value="FALSE">
+                <param name="sd_cut_bounds" type="boolean" checked="true" truevalue="TRUE" falsevalue="FALSE" label="Standard deviations boundaries."
+                       help="Limit the standard deviations by setting boundaries." />
+                <when value="TRUE">
                     <param name="sd_cut_min" type="float" value="0.01" label="Minimal standard deviation"
                            help="The minimum standard deviation - features with a standard deviation lower than this number are eliminated." />
                     <param name="sd_cut_max" type="float" value="500" label="Maximal standard deviation"
--- a/utils.R	Thu Jun 22 11:45:30 2023 +0000
+++ b/utils.R	Wed Jul 19 00:27:03 2023 +0000
@@ -16,6 +16,10 @@
     return(df)
 }
 
+restore_sample_name <- function(df) {
+    return(df$sample_id[1])
+}
+
 load_sample_name <- function(df) {
     sample_name <- attr(df, "sample_name")
     if (is.null(sample_name)) {