comparison utils.R @ 3:e94c0720fbf7 draft

planemo upload for repository https://github.com/RECETOX/galaxytools/tree/master/tools/recetox_aplcms commit 505c3374a3e1e9aa450fcb752f2b8f87558fedbb
author recetox
date Thu, 25 May 2023 09:15:39 +0000
parents ca19ce8c2801
children f8c4db95eec3
comparison
equal deleted inserted replaced
2:ca19ce8c2801 3:e94c0720fbf7
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(feature_tables))) { 44 for (i in seq_len(length(table$feature_tables))) {
45 filename <- file.path(subdir, paste0(subdir, "_", sample_names[i], ".parquet")) 45 filename <- file.path(subdir, paste0(sample_names[i], ".parquet"))
46 feature_table <- as.data.frame(feature_tables[[i]]) 46 feature_table <- as.data.frame(table$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