tests/testthat/test_.createGeneExpressionMatrixFromDataFrame.R

In scFeatureFilter: A correlation-based method for quality filtering of single-cell RNAseq data

context(".createGeneExpressionMatrixFromDataFrame")

test_that("working with different types:", {
    expect_equal(
        .createGeneExpressionMatrixFromDataFrame(
            data.frame(a = letters[1:5], b = 1:5)
        ),
        matrix(1:5, dimnames = list(letters[1:5], "b"))
    )
    expect_equal(
        .createGeneExpressionMatrixFromDataFrame(
            data.frame(a = letters[1:5], b = 1:5, stringsAsFactors = FALSE)
        ),
        matrix(1:5, dimnames = list(letters[1:5], "b"))
    )
    expect_equal(
        .createGeneExpressionMatrixFromDataFrame(
            tibble::tibble(a = letters[1:5], b = 1:5)
        ),
        matrix(1:5, dimnames = list(letters[1:5], "b"))
    )
    expect_equal(
        .createGeneExpressionMatrixFromDataFrame(
            data.frame(b = 1:5)
        ),
        matrix(1:5, dimnames = list(NULL, "b"))
    )
    expect_equal(
        .createGeneExpressionMatrixFromDataFrame(
            data.frame(b = 1:5, stringsAsFactors = FALSE)
        ),
        matrix(1:5, dimnames = list(NULL, "b"))
    )
    expect_equal(
        .createGeneExpressionMatrixFromDataFrame(
            tibble::tibble(b = 1:5)
        ),
        matrix(1:5, dimnames = list(NULL, "b"))
    )
})