Repository 'recetox_aplcms_recover_weaker_signals'
hg clone https://toolshed.g2.bx.psu.edu/repos/recetox/recetox_aplcms_recover_weaker_signals

Changeset 5:fd66fc063ce8 (2023-05-25)
Previous changeset 4:755ff0afaaff (2023-05-24) Next changeset 6:e2cb970d99dd (2023-05-25)
Commit message:
planemo upload for repository https://github.com/RECETOX/galaxytools/tree/master/tools/recetox_aplcms commit 505c3374a3e1e9aa450fcb752f2b8f87558fedbb
modified:
recetox_aplcms_recover_weaker_signals.xml
utils.R
b
diff -r 755ff0afaaff -r fd66fc063ce8 recetox_aplcms_recover_weaker_signals.xml
--- 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>
b
diff -r 755ff0afaaff -r fd66fc063ce8 utils.R
--- 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)
     }