tests/testthat/testcheck.R

context("dataReporter check")

library(dataReporter)
library(haven)

Sys.setenv(TZ="Europe/Copenhagen")
                                       
## Define atomic types
typel <- c(TRUE, FALSE, TRUE, TRUE, FALSE)
typei <- c(1L, 2L, 3L, 4L, 5L)
typed <- c(1.0, 2.3, 4.5, 6.7, 8.9)
typec <- c(1 + 2i, 2 + 0i, 3 + 3i, 4 - 0i, 5+2i)
types <- c(LETTERS[1:5], LETTERS[1:5])
typef <- factor(types)
typelab <- labelled(types, labels=c(A="A", BB="B", CCC="C", DDDD="D", EEEEE="E"))
typer <- sapply(types, charToRaw)
typelist <- list(a=1:3, b=1:10)
typeDate <- as.Date(c("1jan1960", "2jan1960", "31mar1960", "30jul1960"), "%d%b%Y", tz="Europe/Copenhagen")


##
## Check that the right check are performed for each atomic type
##

## Each type should result in a list
test_that("check returns a list for (most) atomic vectors", {
    expect_is(check(typel), "list")
    expect_is(check(typei), "list")
    expect_is(check(typed), "list")
    expect_warning(check(typec))
    expect_is(check(types), "list")
    expect_is(check(typef), "list")    
    expect_is(check(typelab), "list")    
    expect_warning(check(typelist))
    expect_warning(check(typer))
    expect_is(check(typeDate), "list")    
})

## Check the right number of tests. This needs to be updated 
test_that("check return the right number of tests for (most) atomic vectors", {
    expect_equal(length(check(typel)), 1)
    expect_equal(length(check(typei)), 2)
    expect_equal(length(check(typed)), 2)
    ##expect_is(check(typec), "list")
    expect_equal(length(check(types)), 5)
    expect_equal(length(check(typef)), 5)
    expect_equal(length(check(typelab)), 5)
    ##expect_is(check(typer), "list")
    expect_equal(length(check(typeDate)), 2)    
})  

Try the dataReporter package in your browser

Any scripts or data that you put into this service are public.

dataReporter documentation built on Nov. 11, 2021, 9:06 a.m.