Mercurial > repos > recetox > recetox_aplcms_compute_clusters
comparison utils.R @ 4:15aae2bfa67d draft
planemo upload for repository https://github.com/RECETOX/galaxytools/tree/master/tools/recetox_aplcms commit 775afc79d12e680bb26496a2626d1855db9cddc7
author | recetox |
---|---|
date | Thu, 25 May 2023 12:08:49 +0000 |
parents | a054eae3123c |
children | 149b9cc7499b |
comparison
equal
deleted
inserted
replaced
3:a054eae3123c | 4:15aae2bfa67d |
---|---|
39 return(features) | 39 return(features) |
40 } | 40 } |
41 | 41 |
42 save_parquet_collection <- function(feature_tables, sample_names, subdir) { | 42 save_parquet_collection <- function(feature_tables, sample_names, subdir) { |
43 dir.create(subdir) | 43 dir.create(subdir) |
44 for (i in seq_len(length(table$feature_tables))) { | 44 for (i in seq_len(length(feature_tables))) { |
45 filename <- file.path(subdir, paste0(sample_names[i], ".parquet")) | 45 filename <- file.path(subdir, paste0(sample_names[i], ".parquet")) |
46 feature_table <- as.data.frame(table$feature_tables[[i]]) | 46 feature_table <- as.data.frame(feature_tables[[i]]) |
47 feature_table <- save_sample_name(feature_table, sample_names[i]) | 47 feature_table <- save_sample_name(feature_table, sample_names[i]) |
48 arrow::write_parquet(feature_table, filename) | 48 arrow::write_parquet(feature_table, filename) |
49 } | 49 } |
50 } | 50 } |
51 | 51 |