Mercurial > repos > recetox > waveica

comparison waveica_wrapper.R @ 4:425c0494ec2d 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/waveica commit 84de3bc96ad2859d87c70ba94d8ceb0b2bc2a0da
author recetox
date Tue, 07 May 2024 12:49:20 +0000
parents dbbedb14b44c
children e424fa636281
comparison
equal deleted inserted replaced
3:dbbedb14b44c 4:425c0494ec2d
229 return(data) 229 return(data)
230 } 230 }
231 } 231 }
232 232
233 store_data <- function(data, output, ext) { 233 store_data <- function(data, output, ext) {
234 if (ext == "csv") { 234 if (ext == "parquet") {
235 write.csv(data, file = output, row.names = FALSE, quote = FALSE) 235 arrow::write_parquet(data, output)
236 } else if (ext == "tsv") { 236 } else {
237 write.table(data, 237 write.table(data,
238 file = output, sep = "\t", 238 file = output, sep = "\t",
239 row.names = FALSE, quote = FALSE 239 row.names = FALSE, quote = FALSE
240 ) 240 )
241 } else {
242 arrow::write_parquet(data, sink = output)
243 } 241 }
244 cat("Normalization has been completed.\n") 242 cat("Normalization has been completed.\n")
245 } 243 }