tests/testthat/test-plotLong.R

context("plotLong")

demo <- suppressWarnings(get_demo_cluster())
demo$block.pls2 <- suppressWarnings(mixOmics::block.pls(X=list(X=demo$X, 
                                                               Z=demo$Z), 
                                                        Y=demo$Y, ncomp = 5, 
                                                        mode = "canonical"))


pdf(NULL)
test_that("plotLong failed on invalid - object", {
    expect_error(plotLong(""), "invalid object, should be one of c(pca, spca, mixo_pls, mixo_spls, block.pls, block.spls)", fixed = TRUE)
    expect_error(plotLong(3), "invalid object, should be one of c(pca, spca, mixo_pls, mixo_spls, block.pls, block.spls)", fixed = TRUE)
    expect_error(plotLong(matrix()), "invalid object, should be one of c(pca, spca, mixo_pls, mixo_spls, block.pls, block.spls)", fixed = TRUE)    
    expect_error(plotLong(list()), "invalid object, should be one of c(pca, spca, mixo_pls, mixo_spls, block.pls, block.spls)", fixed = TRUE)
    expect_error(plotLong(data.frame()), "invalid object, should be one of c(pca, spca, mixo_pls, mixo_spls, block.pls, block.spls)", fixed = TRUE)
})

test_that("plotLong failed on invalid - time", {
    # pca / spca
    expect_error(plotLong(object = demo$pca, time = ""), "'time' should be a numeric vector")
    expect_error(plotLong(object = demo$pca, time = 1), "'time' should be a numeric vector")
    expect_error(plotLong(object = demo$pca, time = matrix()), "'time' should be a numeric vector")
    expect_error(plotLong(object = demo$pca, time = list(1:10)), "'time' should be a numeric vector")
    expect_error(plotLong(object = demo$pca, time = data.frame(1:10)), "'time' should be a numeric vector")
    expect_error(plotLong(object = demo$pca, time = NA), "'time' should be a numeric vector")
    expect_error(plotLong(object = demo$pca, time = 1:9), "'time' should be a numeric vector")
    expect_error(plotLong(object = demo$pca, time = 1:11), "'time' should be a numeric vector")

    # pls / spls
    expect_error(plotLong(object = demo$pls, time = ""), "'time' should be a numeric vector")
    expect_error(plotLong(object = demo$pls, time = 1), "'time' should be a numeric vector")
    expect_error(plotLong(object = demo$pls, time = matrix()), "'time' should be a numeric vector")
    expect_error(plotLong(object = demo$pls, time = list(1:10)), "'time' should be a numeric vector")
    expect_error(plotLong(object = demo$pls, time = data.frame(1:10)), "'time' should be a numeric vector")
    expect_error(plotLong(object = demo$pls, time = NA), "'time' should be a numeric vector")
    expect_error(plotLong(object = demo$pls, time = 1:9), "'time' should be a numeric vector")
    expect_error(plotLong(object = demo$pls, time = 1:11), "'time' should be a numeric vector")
    
    # block.pls / block.spls
    expect_error(plotLong(object = demo$block.pls, time = ""), "'time' should be a numeric vector")
    expect_error(plotLong(object = demo$block.pls, time = 1), "'time' should be a numeric vector")
    expect_error(plotLong(object = demo$block.pls, time = matrix()), "'time' should be a numeric vector")
    expect_error(plotLong(object = demo$block.pls, time = list(1:10)), "'time' should be a numeric vector")
    expect_error(plotLong(object = demo$block.pls, time = data.frame(1:10)), "'time' should be a numeric vector")
    expect_error(plotLong(object = demo$block.pls, time = NA), "'time' should be a numeric vector")
    expect_error(plotLong(object = demo$block.pls, time = 1:9), "'time' should be a numeric vector")
    expect_error(plotLong(object = demo$block.pls, time = 1:11), "'time' should be a numeric vector")
})

test_that("plotLong failed on invalid - legend.block.name", {
    expect_error(plotLong(object = demo$pca, legend.block.name = list()))
    expect_error(plotLong(object = demo$pca, legend.block.name = matrix()))
    expect_error(plotLong(object = demo$pca, legend.block.name = c(1,2)))
    expect_error(plotLong(object = demo$pca, legend.block.name = c("a", "b")))
  
    expect_error(plotLong(object = demo$pls, legend.block.name = c(1,2)))
    expect_error(plotLong(object = demo$pls, legend.block.name = c("a")))  
    
    expect_error(plotLong(object = demo$block.pls, legend.block.name = c(1,2)))
    expect_error(plotLong(object = demo$block.pls, legend.block.name = c("a")))
})


test_that("plotLong works", {
    expect_is(plotLong(object = demo$pca), "data.frame")
    expect_is(plotLong(object = demo$spca), "data.frame")
    expect_is(plotLong(object = demo$pls), "data.frame")
    expect_is(plotLong(object = demo$spls), "data.frame")
    expect_is(plotLong(object = demo$block.pls), "data.frame")
    expect_is(plotLong(object = demo$block.spls), "data.frame")
    expect_is(plotLong(object = demo$block.pls, time=1:10), "data.frame")
    
    # plot TRUE/FALSE
    expect_is(plotLong(object = demo$pca, plot=""), "data.frame")
    expect_is(plotLong(object = demo$pca, plot=FALSE), "data.frame")
    expect_is(plotLong(object = demo$pca, plot=1), "data.frame")
    expect_is(plotLong(object = demo$pca, plot=NULL), "data.frame")
    
    # scale TRUE/FALSE
    expect_is(plotLong(object = demo$pca, scale=""), "data.frame")
    expect_is(plotLong(object = demo$pca, scale=FALSE), "data.frame")
    expect_is(plotLong(object = demo$pca, scale=1), "data.frame")
    expect_is(plotLong(object = demo$pca, scale=NULL), "data.frame")
    
    # scale TRUE/FALSE
    expect_is(plotLong(object = demo$pca, center=""), "data.frame")
    expect_is(plotLong(object = demo$pca, center=FALSE), "data.frame")
    expect_is(plotLong(object = demo$pca, center=1), "data.frame")
    expect_is(plotLong(object = demo$pca, center=NULL), "data.frame")
    
    # legend TRUE/FALSE
    expect_is(plotLong(object = demo$pca, legend=""), "data.frame")
    expect_is(plotLong(object = demo$pca, legend=FALSE), "data.frame")
    expect_is(plotLong(object = demo$pca, legend=1), "data.frame")
    expect_is(plotLong(object = demo$pca, legend=NULL), "data.frame")
    
    # title string
    expect_is(plotLong(object = demo$pca, title=""), "data.frame")
    expect_is(plotLong(object = demo$pca, title=FALSE), "data.frame")
    expect_is(plotLong(object = demo$pca, title=1), "data.frame")
    expect_is(plotLong(object = demo$pca, title=list()), "data.frame")
    expect_is(plotLong(object = demo$pca, title=data.frame()), "data.frame")
    
    # X.label
    expect_is(plotLong(object = demo$pca, X.label=""), "data.frame")
    expect_is(plotLong(object = demo$pca, X.label=FALSE), "data.frame")
    expect_is(plotLong(object = demo$pca, X.label=1), "data.frame")
    expect_is(plotLong(object = demo$pca, X.label=list()), "data.frame")
    expect_is(plotLong(object = demo$pca, X.label=data.frame()), "data.frame")
    
    # Y.label
    expect_is(plotLong(object = demo$pca, Y.label=""), "data.frame")
    expect_is(plotLong(object = demo$pca, Y.label=FALSE), "data.frame")
    expect_is(plotLong(object = demo$pca, Y.label=1), "data.frame")
    expect_is(plotLong(object = demo$pca, Y.label=list()), "data.frame")
    expect_is(plotLong(object = demo$pca, Y.label=data.frame()), "data.frame")
    
    # legend.title
    expect_is(plotLong(object = demo$pca, legend.title=""), "data.frame")
    expect_is(plotLong(object = demo$pca, legend.title=FALSE), "data.frame")
    expect_is(plotLong(object = demo$pca, legend.title=1), "data.frame")
    expect_is(plotLong(object = demo$pca, legend.title=list()), "data.frame")
    expect_is(plotLong(object = demo$pca, legend.title=data.frame()), "data.frame")
    
    expect_is(plotLong(object = demo$pca, legend=TRUE, legend.title=""), "data.frame")
    expect_is(plotLong(object = demo$pca, legend=TRUE, legend.title=FALSE), "data.frame")
    expect_is(plotLong(object = demo$pca, legend=TRUE, legend.title=1), "data.frame")
    expect_is(plotLong(object = demo$pca, legend=TRUE, legend.title=list()), "data.frame")
    expect_is(plotLong(object = demo$pca, legend=TRUE, legend.title=data.frame()), "data.frame")
    
    # legend.block.name
    expect_is(plotLong(object = demo$pca, legend.block.name = "pca.X"), "data.frame")
    expect_is(plotLong(object = demo$pls, legend.block.name = c("pls.X", "pls.Y")), "data.frame")
    expect_is(plotLong(object = demo$block.pls, legend.block.name = c("pls.X", "pls.Y", "pls.Z")), "data.frame")
    
})
dev.off()
abodein/timeOmics documentation built on March 22, 2022, 5:25 p.m.