inst/unitTests/test_healthyControlsPresenceChecker.R

In davidechicco/healthyControlsPresenceChecker: Dowloads A Gene Expression Dataset From GEO And Checks If It Contains Data Of Healthy Controls Or Not

# test_healthyControlsCheck <- function() {
test_healthyControlsCheck <- function() {
    checkEquals(healthyControlsCheck("GSE19429", FALSE), TRUE)
    checkEquals(healthyControlsCheck("GSE58831", FALSE), TRUE)
    checkEquals(healthyControlsCheck("GSE19429", FALSE), TRUE)
    checkEquals(healthyControlsCheck("GSE34111", FALSE), TRUE)
    checkEquals(healthyControlsCheck("GSE47407", FALSE), FALSE)
    checkEquals(healthyControlsCheck("GSE32123131231", FALSE), NULL)
}