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