tests/testthat/test-loading.R

In qol: Powerful 'SAS' Inspired Concepts for more Efficient Bigger Outputs

###############################################################################
# Suppressing some functions messages because they only output the information
# on how much time they took.
###############################################################################

dummy_df1 <- suppressMessages(dummy_data(10))
dummy_df2 <- suppressMessages(dummy_data(10))
dummy_df3 <- suppressMessages(dummy_data(10))

external_path <- system.file("extdata",  package = "qol")


test_that("Stack data fames", {
    new_df1 <- set(dummy_df1, dummy_df2, dummy_df3)
    new_df2 <- set(dummy_df1, dummy_df2, dummy_df3, compress = "factor")

    expect_equal(nrow(new_df1), 30)
    expect_equal(nrow(new_df2), 30)
    expect_equal(class(new_df1[["education"]]), "character")
    expect_equal(class(new_df2[["education"]]), "factor")
})


test_that("Stack data fames with id column", {
    new_df <- set(dummy_df1, dummy_df2, dummy_df3, id = TRUE)

    expect_equal(max(new_df[["ID"]]), 3)
})


test_that("Retrieve path with libname", {
    expect_message(my_path <- libname(external_path), " > Path successfully assigned: ")
    expect_equal(my_path, external_path)
})


test_that("Retrieve files from path with libname", {
    expect_message(my_path <- libname(external_path, get_files = TRUE), " > Filepaths successfully retrieved: ")
    expect_equal(names(my_path), c("qol_example_data_csv.csv", "qol_example_data_xlsx.xlsx", "qol_nuts.csv"))
})

###############################################################################
# Abort checks
###############################################################################

test_that("Abort libname on invalid path", {
    expect_message(my_path <- libname("Test"), " X ERROR: Path does not exist: ")
})