# HG changeset patch # User recetox # Date 1654856114 0 # Node ID acd25e4fda77a62a257fd114e71b7c949c17d980 # Parent 867c737a7f1039d55ee07f0eb5679a697de9c442 planemo upload for repository https://github.com/RECETOX/galaxytools/tree/master/tools/recetox_aplcms commit 19de0924a65bc65cbbf7c1fc17e9b5348305f95c diff -r 867c737a7f10 -r acd25e4fda77 macros.xml --- a/macros.xml Thu May 26 16:46:40 2022 +0000 +++ b/macros.xml Fri Jun 10 10:15:14 2022 +0000 @@ -4,14 +4,23 @@ r-base r-arrow - r-recetox-aplcms + r-recetox-aplcms r-dplyr - + + + + + + +
@@ -170,7 +188,6 @@ diff -r 867c737a7f10 -r acd25e4fda77 main.R --- a/main.R Thu May 26 16:46:40 2022 +0000 +++ b/main.R Fri Jun 10 10:15:14 2022 +0000 @@ -79,11 +79,8 @@ res <- unsupervised(filenames = sample_files, ...) - save_all_extracted_features(res$extracted_features, sample_files) - save_all_corrected_features(res$corrected_features, sample_files) - - save_aligned_feature_table(res$aligned_feature_sample_table, aligned_file) - save_recovered_feature_table(res$recovered_feature_sample_table, recovered_file, out_format) + save_all_features(res, sample_files) + save_all_feature_tables(res$aligned_feature_sample_table, res$recovered_feature_sample_table, aligned_file, recovered_file, out_format) } hybrid_main <- function(sample_files, known_table_file, updated_known_table_file, pairing_file, aligned_file, recovered_file, out_format, ...) { @@ -95,11 +92,22 @@ save_known_table(res$updated_known_table, updated_known_table_file) save_pairing(res$features_known_table_pairing, pairing_file) - save_all_extracted_features(res$extracted_features, sample_files) - save_all_corrected_features(res$corrected_features, sample_files) + save_all_features(res, sample_files) + save_all_feature_tables(res$aligned_feature_sample_table, res$recovered_feature_sample_table, aligned_file, recovered_file, out_format) +} - save_aligned_feature_table(res$aligned_feature_sample_table, aligned_file) - save_recovered_feature_table(res$recovered_feature_sample_table, recovered_file, out_format) +save_all_features <- function(result, sample_files) { + save_all_extracted_features(result$extracted_features, sample_files) + save_all_corrected_features(result$corrected_features, sample_files) +} + +save_all_feature_tables <- function(aligned_feature_sample_table, + recovered_feature_sample_table, + aligned_file, + recovered_file, + out_format) { + save_aligned_feature_table(aligned_feature_sample_table, aligned_file) + save_recovered_feature_table(recovered_feature_sample_table, recovered_file, out_format) } two_step_hybrid_main <- function(sample_files, known_table_file, updated_known_table_file, recovered_file, aligned_file, out_format, metadata, ...) { diff -r 867c737a7f10 -r acd25e4fda77 recetox_aplcms_hybrid.xml --- a/recetox_aplcms_hybrid.xml Thu May 26 16:46:40 2022 +0000 +++ b/recetox_aplcms_hybrid.xml Fri Jun 10 10:15:14 2022 +0000 @@ -78,6 +78,7 @@ +