tests/testthat/test_NMisNumeric.R

In philipdelff/NMdata: Preparation, Checking and Post-Processing Data for PK/PD Modeling

test_that("basic",{
    fileRef <- "testReference/NMisNumeric_1.rds"

    pk <- readRDS(file=system.file("examples/data/xgxr2.rds",package="NMdata"))
    res <- lapply(pk,NMisNumeric)

    expect_equal_to_reference(res,fileRef,version=2)
})

test_that("many element-wise",{
    fileRef <- "testReference/NMisNumeric_2.rds"

    pk <- readRDS(file=system.file("examples/data/xgxr2.rds",package="NMdata"))
    res <- pk[,lapply(.SD,NMisNumeric,each=T)]

    expect_equal_to_reference(res,fileRef,version=2)
})


test_that("element-wise",{
    fileRef <- "testReference/NMisNumeric_3.rds"

    res <- NMisNumeric(c("1","1p"),each=T)

    expect_equal_to_reference(res,fileRef,version=2)
})


test_that("NA's",{
    fileRef <- "testReference/NMisNumeric_4.rds"

    dttest <- data.table(logic=NA
                        ,char2=NA_character_
                        ,num=NA_real_
                        ,int=NA_integer_
                         )
    
    res <- sapply(dttest,NMisNumeric)

res


    expect_equal_to_reference(res,fileRef,version=2)
})