comparison utils.R @ 3:a054eae3123c draft

planemo upload for repository https://github.com/RECETOX/galaxytools/tree/master/tools/recetox_aplcms commit 505c3374a3e1e9aa450fcb752f2b8f87558fedbb

2:ce00e1d03c31

    return(features)
}

save_parquet_collection <- function(feature_tables, sample_names, subdir) {
    dir.create(subdir)
    for (i in seq_len(length(feature_tables))) {
      filename <- file.path(subdir, paste0(subdir, "_", sample_names[i], ".parquet"))
      feature_table <- as.data.frame(feature_tables[[i]])
      feature_table <- save_sample_name(feature_table, sample_names[i])
      arrow::write_parquet(feature_table, filename)
    }
}

3:a054eae3123c

    return(features)
}

save_parquet_collection <- function(feature_tables, sample_names, subdir) {
    dir.create(subdir)
    for (i in seq_len(length(table$feature_tables))) {
      filename <- file.path(subdir, paste0(sample_names[i], ".parquet"))
      feature_table <- as.data.frame(table$feature_tables[[i]])
      feature_table <- save_sample_name(feature_table, sample_names[i])
      arrow::write_parquet(feature_table, filename)
    }
}