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

Changeset 3:477b5144a422 (2023-05-25)
Previous changeset 2:73d8537dcbd6 (2023-05-24) Next changeset 4:ebca18e223bf (2023-05-25)
Commit message:
planemo upload for repository https://github.com/RECETOX/galaxytools/tree/master/tools/recetox_aplcms commit 505c3374a3e1e9aa450fcb752f2b8f87558fedbb
modified:
recetox_aplcms_generate_feature_table.xml
utils.R
b
diff -r 73d8537dcbd6 -r 477b5144a422 recetox_aplcms_generate_feature_table.xml
--- a/recetox_aplcms_generate_feature_table.xml Wed May 24 14:48:31 2023 +0000
+++ b/recetox_aplcms_generate_feature_table.xml Thu May 25 09:14:23 2023 +0000
[
@@ -1,4 +1,4 @@
-<tool id="recetox_aplcms_generate_feature_table" name="recetox-aplcms - generate feature table" version="@TOOL_VERSION@+galaxy0">
+<tool id="recetox_aplcms_generate_feature_table" name="recetox-aplcms - generate feature table" version="@TOOL_VERSION@+galaxy1">
     <description>generate feature table from noise-removed HRMS profile data</description>
     <macros>
         <import>macros.xml</import>
@@ -63,7 +63,7 @@
     </inputs>
 
     <outputs>
-        <data label="${tool.name} on ${on_string}" name="output_file" format="parquet" />
+        <data label="${($profile.element_identifier).rsplit('.',1)[0]}.parquet" name="output_file" format="parquet" />
     </outputs>
 
     <tests>
b
diff -r 73d8537dcbd6 -r 477b5144a422 utils.R
--- a/utils.R Wed May 24 14:48:31 2023 +0000
+++ b/utils.R Thu May 25 09:14:23 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)
     }