Mercurial > repos > recetox > recetox_aplcms_recover_weaker_signals

changeset 5:fd66fc063ce8 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 505c3374a3e1e9aa450fcb752f2b8f87558fedbb
author recetox
date Thu, 25 May 2023 09:16:12 +0000
parents 755ff0afaaff
children e2cb970d99dd
files recetox_aplcms_recover_weaker_signals.xml utils.R
diffstat 2 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/recetox_aplcms_recover_weaker_signals.xml	Wed May 24 14:50:25 2023 +0000
+++ b/recetox_aplcms_recover_weaker_signals.xml	Thu May 25 09:16:12 2023 +0000
@@ -1,4 +1,4 @@
-<tool id="recetox_aplcms_recover_weaker_signals" name="recetox-aplcms - recover weaker signals" version="@TOOL_VERSION@+galaxy0">
+<tool id="recetox_aplcms_recover_weaker_signals" name="recetox-aplcms - recover weaker signals" version="@TOOL_VERSION@+galaxy1">
     <description>recover weaker signals from raw data using an aligned feature table</description>
     <macros>
         <import>macros.xml</import>
@@ -98,7 +98,7 @@
     </inputs>
 
     <outputs>
-        <data label="${tool.name} on ${on_string}" name="output_file" format="parquet" />
+        <data label="${($input_file.element_identifier).rsplit('.',1)[0]}.parquet" name="output_file" format="parquet" />
     </outputs>
 
     <tests>
--- a/utils.R	Wed May 24 14:50:25 2023 +0000
+++ b/utils.R	Thu May 25 09:16:12 2023 +0000
@@ -41,9 +41,9 @@
 
 save_parquet_collection <- function(feature_tables, sample_names, subdir) {
     dir.create(subdir)
-    for (i in seq_len(length(feature_tables))) {
-      filename <- file.path(subdir, paste0(subdir, "_", sample_names[i], ".parquet"))
-      feature_table <- as.data.frame(feature_tables[[i]])
+    for (i in seq_len(length(table$feature_tables))) {
+      filename <- file.path(subdir, paste0(sample_names[i], ".parquet"))
+      feature_table <- as.data.frame(table$feature_tables[[i]])
       feature_table <- save_sample_name(feature_table, sample_names[i])
       arrow::write_parquet(feature_table, filename)
     }