tests/testthat/test-manage_na.R

In wincowgerDEV/OpenSpecy: Analyze, Process, Identify, and Share Raman and (FT)IR Spectra

test_that("manage_na works as expected", {
    manage_na(c(NA, -1, NA, 1, 10)) |> 
        expect_identical(c(TRUE, FALSE, FALSE, FALSE, FALSE))
    manage_na(c(NA, -1, NA, 1, 10), lead_tail_only = FALSE) |> 
        expect_identical(c(TRUE, FALSE, TRUE, FALSE, FALSE))
    manage_na(c(NA, 0, NA, 1, 10), lead_tail_only = FALSE, ig = c(NA, 0)) |>
        expect_identical(c(TRUE, TRUE, TRUE, FALSE, FALSE))
    
    data(raman_hdpe)
    raman_hdpe$spectra[[1]][1:10] <- NA
    ignore <- manage_na(raman_hdpe, fun = make_rel) 
    ignore$spectra[[1]] |>
        is.na() |>
        sum() |>
        expect_equal(10)
    remove <- manage_na(raman_hdpe, type = "remove") 
    remove$spectra[[1]] |>
        is.na() |>
        sum() |>
        expect_equal(0)
})


test_that("manage_na works with zeros", {
    data(raman_hdpe)
    raman_hdpe$spectra[[1]][1:10] <- 0
    remove <- manage_na(raman_hdpe, ig = c(NA, 0), type = "remove") 
    expect_equal(length(remove$spectra[[1]]), length(raman_hdpe$spectra[[1]]) - 10)
})


test_that("manage_na works as expected", {
    data(raman_hdpe)
    raman_hdpe$spectra[[1]][3:nrow(raman_hdpe$spectra)] <- NA
    manage_na(raman_hdpe, fun = make_rel) |> expect_silent()
    raman_hdpe$spectra[[1]][1:nrow(raman_hdpe$spectra)] <- NA
    manage_na(raman_hdpe, fun = make_rel) |> expect_error()
})