tests/testthat/test-magma_links.R

In NathanSkene/MAGMA_Celltyping: Find Causal Cell-Types Underlying Complex Trait Genetics

test_that("magma_links works", {
    
    if(!is_32bit()){
        to_version <- function(x){
          package_version(
            gsub("v","",MAGMA.Celltyping:::magma_links_versions(x))
          )
        }
        
        #### Mac ####
        magma_mac <-MAGMA.Celltyping:::magma_links(latest_only = TRUE,
                               os = "Mac",
                               verbose = FALSE)
        testthat::expect_true(to_version(magma_mac)>="1.1") 
        
        #### Windows ####
        magma_win <- MAGMA.Celltyping:::magma_links(latest_only = TRUE,
                                                    os = "Windows")
        testthat::expect_true(to_version(magma_win)>="1.1") 
        
        #### Linux ####
        magma_linux <- MAGMA.Celltyping:::magma_links(latest_only = TRUE,
                                                      os = "Linux")
        testthat::expect_true(to_version(magma_linux)>="1.1") 
          
        #### All ####
        meta <- MAGMA.Celltyping:::magma_links(latest_only = FALSE,
                                               os = "Mac",
                                               return_table = TRUE)
        testthat::expect_gte(nrow(meta),19)
    } else {
        testthat::expect_null(NULL)
    } 
})