tests/testthat/test_utils.R

In rtables: Reporting Tables

context("Checking utility functions")

test_that("func_takes works with different inputs", {
    f1 <- function() {}
    f2 <- function(df = "a") {}
    f3 <- function(x = "df") {}
    f4 <- function(x, df) {}
    f5 <- function(Df, df = "df") {}
    f6 <- function(df1, df = "df") {}
    f_l <- list(f1, f2, f3, f4, f5, f6)
    
    expect_silent(res <- unlist(func_takes(f_l, "df", is_first = TRUE)))
    expect_identical(res, c(FALSE, TRUE, FALSE, FALSE, FALSE, FALSE))
    
    expect_silent(res <- func_takes(f_l, "df", is_first = FALSE))
    expect_identical(unlist(res, use.names = FALSE), 
                     c(FALSE, TRUE, FALSE, TRUE, TRUE, TRUE))
    
    expect_true(all(sapply(res, names) == "df"))
    
    expect_error(func_takes(f_l, c("df", "l"), is_first = TRUE),
                 "is_first works only with one parameters.")
})