Nothing
testthat::context("Reading TRIM input files")
test_that("reading happy flow",{
f <- tempfile()
# happy flow
writeLines("1 1992 186 1.0000 1
1 1993 60 1.0000 1
1 1994 39 1.0000 1
1 1995 3 1.0000 1
1 1996 3 1.0000 1
1 1997 0 1.0000 1
1 1998 0 1.0000 1
1 1999 0 1.0000 1
1 2000 0 1.0000 1
1 2001 -1 1.0000 1",con=f)
dat <- read_tdf(x=f,missing=-1L, weight=TRUE, ncovars=1,labels="covar01")
expect_equal(dat[1,],
data.frame(
site= 1
,time=1992
,count=186
,weight=1
,covar01=1
))
expect_equal(dat[10,3],NA_integer_)
tryCatch(unlink(f),error=function(e)cat(sprintf("Could not unlink temporary file %s",f)))
})
test_that("reading with errors",{
f <- tempfile()
writeLines("1 1992 186 1
1 1993 60 1.0000 1
1 1994 39 1.0000 1
1 1995 3 1.0000 1
1 1996 3 1.0000 1
1 1997 0 1.0000 1
1 1998 0 1.0000 1
1 1999 0 1.0000 1
1 2000 0 1.0000 1
1 2001 -1 1.0000 1",con=f)
expect_error(read_tdf(x=f,weight=TRUE),regexp = "Expected 4 columns")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.