tests/testthat/test_uniquePresent.R

context("uniquePresent")

test_that("basic",{

    dat0 <- readRDS("testData/data/xgxr2.rds")

    dat <- copy(dat0)
    dat[c(3,30,50,55,50),WEIGHTB:=NA]
    dat
    dat[,WEIGHTB:=uniquePresent(WEIGHTB),by=.(ID)]

    expect_equal(dat0,dat)

})
philipdelff/NMdata documentation built on March 5, 2025, 12:20 a.m.