tests/testthat/testProcessors.R

In PavlidisLab/gemma.R: A wrapper for Gemma's Restful API to access curated gene expression data and differential expression analyses

test_that('processor file writing',{
    file = tempfile()
    get_platforms_by_ids(1,file = file)

    expect_warning(get_platforms_by_ids(1,file = file),'exists. Not overwriting')

    file = tempfile()
    gemma.R::get_dataset_processed_expression(dataset = 'GSE2018', file = file)
    expect_true(file.exists(paste0(file)))

    file = tempfile()
    gemma.R::get_dataset_processed_expression(dataset = 'GSE2018', file = file, raw = TRUE)
    expect_true(file.exists(paste0(file)))


    file = tempfile()
    gemma.R::get_dataset_processed_expression(dataset = 'GSE2018', file = file, raw = FALSE)
    expect_true(file.exists(paste0(file)))


})