tests/testthat/test-utils-dataset-converters.R

In saezlab/decoupleR: decoupleR: Ensemble of computational methods to infer biological activities from omics data

library(decoupleR)
library(dplyr)

# Data set to test ---------------------------------------------------------

net <- readRDS(
    system.file("testdata/inputs", "net.rds", package = "decoupleR")
)

# convert_f_defaults ------------------------------------------------------

test_that("convert_f_defaults (select-transmute)-like property", {
    res_1 <- convert_f_defaults(
        .data = net,
        source = source,
        target = target
    )

    exp_1 <- net %>%
        select(source, target)

    expect_equal(res_1, exp_1)
})

test_that("convert_f_defaults swap property for single.", {

    # Normal rename
    res_1 <- convert_f_defaults(
        .data = net,
        source = target,
        target = source
    )

    exp_1 <- net %>%
        select(source = target, target = source)

    expect_equal(res_1, exp_1)

    # Default dplyr::rename don't allow this.
    res_1 <- convert_f_defaults(
        .data = net,
        source = target,
        .use_dots = TRUE
    )

    exp_1 <- net %>%
        select(source = target)

    expect_equal(res_1, exp_1)

    # If use_dots its false it's like normal rename.
    expect_error(convert_f_defaults(
        .data = net,
        source = target,
        .use_dots = FALSE
    ),
    regexp = "Names must be unique.",
    class = "vctrs_error_names_must_be_unique"
    )
})

test_that("convert_f_defaults add columns with defaults", {
    res_1 <- convert_f_defaults(
        .data = net,
        source = source,
        target = target,
        mor = NULL,
        likelihood = NULL,
        .def_col_val = c(mor = 0, likelihood = 1)
    )

    exp_1 <- net %>%
        dplyr::select(source, target) %>%
        dplyr::mutate(mor = 0, likelihood = 1)

    expect_equal(res_1, exp_1)
})