# HG changeset patch # User recetox # Date 1685005921 0 # Node ID b0423c52dce283d0d3554d014c3f25ef14c4f8c6 # Parent a1f2df6ec4fbcb0f5b58d475816432cbffa99e4b planemo upload for repository https://github.com/RECETOX/galaxytools/tree/master/tools/recetox_aplcms commit 505c3374a3e1e9aa450fcb752f2b8f87558fedbb diff -r a1f2df6ec4fb -r b0423c52dce2 recetox_aplcms_generate_feature_table.xml --- a/recetox_aplcms_generate_feature_table.xml Wed May 24 14:45:46 2023 +0000 +++ b/recetox_aplcms_generate_feature_table.xml Thu May 25 09:12:01 2023 +0000 @@ -1,4 +1,4 @@ - + generate feature table from noise-removed HRMS profile data macros.xml @@ -63,7 +63,7 @@ - + diff -r a1f2df6ec4fb -r b0423c52dce2 utils.R --- a/utils.R Wed May 24 14:45:46 2023 +0000 +++ b/utils.R Thu May 25 09:12:01 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) }