tests/testthat/test-utils.R

In sipss/AlpsNMR: Automated spectraL Processing System for NMR

test_that("list_of_lists_to_tibble works", {
    data_as_list <- list(
        list(Gender = "Male", Height = 170),
        list(Gender = "Female", Height = 160),
        list(Gender = "Male", Weight = 80)
    )
    mydata <- list_of_lists_to_tibble(data_as_list)
    # check result is consistent:
    expect_equal(nrow(mydata), 3)
    expect_equal(mydata[["Gender"]], c("Male", "Female", "Male"))
    expect_equal(mydata[["Height"]], c(170, 160, NA))
    expect_equal(mydata[["Weight"]], c(NA, NA, 80))
})

test_that("list_of_lists_to_tibble keeps NULL rows as NA rows", {
    data_as_list <- list(
        list(Gender = "Male", Height = 170),
        list(Gender = "Female", Height = 160),
        NULL,
        list(Gender = "Male", Weight = 80)
    )
    mydata <- list_of_lists_to_tibble(data_as_list)
    # check result is consistent:
    expect_equal(nrow(mydata), 4)
    expect_equal(mydata[["Gender"]], c("Male", "Female", NA, "Male"))
    expect_equal(mydata[["Height"]], c(170, 160, NA, NA))
    expect_equal(mydata[["Weight"]], c(NA, NA, NA, 80))
})

test_that("list_of_lists_to_tibble replaces NULL values with NA values", {
    data_as_list <- list(
        list(Gender = "Male", Height = 170),
        list(Gender = "Female", Height = NULL),
        NULL,
        list(Gender = "Male", Weight = 80)
    )
    mydata <- list_of_lists_to_tibble(data_as_list)
    # check result is consistent:
    expect_equal(nrow(mydata), 4)
    expect_equal(mydata[["Gender"]], c("Male", "Female", NA, "Male"))
    expect_equal(mydata[["Height"]], c(170, NA, NA, NA))
    expect_equal(mydata[["Weight"]], c(NA, NA, NA, 80))
})

test_that("list_of_lists_to_tibble accepts POSIXct", {
    data_as_list <- list(
        list(Gender = "Male", Height = 170, Day = as.POSIXct("2010-01-01")),
        list(Gender = "Female", Height = NULL, Day = NULL),
        NULL,
        list(Gender = "Male", Weight = 80, Day = NA)
    )
    mydata <- list_of_lists_to_tibble(data_as_list)
    # check result is consistent:
    expect_equal(nrow(mydata), 4)
    expect_equal(mydata[["Gender"]], c("Male", "Female", NA, "Male"))
    expect_equal(mydata[["Height"]], c(170, NA, NA, NA))
    expect_equal(mydata[["Weight"]], c(NA, NA, NA, 80))
    expect_equal(mydata[["Day"]], as.POSIXct(c("2010-01-01", NA, NA, NA)))
})