tests/testthat/test-load_rdata.R

test_that("load_rdata works", {
    
    fileName <- paste0("https://github.com/RajLabMSSM/",
    "Fine_Mapping_Shiny/raw/master/www/BST1.finemap_DT.RDS")
    dat <- load_rdata(fileName) 
    testthat::expect_gte(nrow(dat),900)
})
RajLabMSSM/downloadR documentation built on May 12, 2024, 3:22 a.m.