Mercurial > repos > recetox > recetox_aplcms_compute_template
comparison utils.R @ 4:f8c4db95eec3 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:09:52 +0000 |
| parents | e94c0720fbf7 |
| children | 481d769e2f7a |
comparison
equal
deleted
inserted
replaced
| 3:e94c0720fbf7 | 4:f8c4db95eec3 |
|---|---|
| 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 |