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

Changeset 3:e3acbc988e14 (2023-05-25)
Previous changeset 2:caa39ec7a18b (2023-05-24) Next changeset 4:8fb5e458831f (2023-05-25)
Commit message:
planemo upload for repository https://github.com/RECETOX/galaxytools/tree/master/tools/recetox_aplcms commit 505c3374a3e1e9aa450fcb752f2b8f87558fedbb
modified:
recetox_aplcms_remove_noise.xml
utils.R
b
diff -r caa39ec7a18b -r e3acbc988e14 recetox_aplcms_remove_noise.xml
--- a/recetox_aplcms_remove_noise.xml Wed May 24 14:49:19 2023 +0000
+++ b/recetox_aplcms_remove_noise.xml Thu May 25 09:15:08 2023 +0000
[
@@ -1,4 +1,4 @@
-<tool id="recetox_aplcms_remove_noise" name="recetox-aplcms - remove noise" version="@TOOL_VERSION@+galaxy0">
+<tool id="recetox_aplcms_remove_noise" name="recetox-aplcms - remove noise" version="@TOOL_VERSION@+galaxy1">
     <description>filter noise and detect peaks in high resolution mass spectrometry (HRMS) profile data</description>
     <macros>
         <import>macros.xml</import>
@@ -39,7 +39,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 caa39ec7a18b -r e3acbc988e14 utils.R
--- a/utils.R Wed May 24 14:49:19 2023 +0000
+++ b/utils.R Thu May 25 09:15:08 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)
     }