Mercurial > repos > recetox > recetox_aplcms_align_features

comparison utils.R @ 7:1a01ffa85adc draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload for repository https://github.com/RECETOX/galaxytools/tree/master/tools/recetox_aplcms commit 775afc79d12e680bb26496a2626d1855db9cddc7
author recetox
date Thu, 25 May 2023 12:09:05 +0000
parents c464931ca425
children 7b42ee54d757
comparison
equal deleted inserted replaced
6:c464931ca425 7:1a01ffa85adc
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