tests/testthat/test_info.R

In gdemin/labelr: Tables, Labels and Some Useful Functions from Spreadsheets and 'SPSS' Statistics

context("info")

vec = c(1:2,NA)
expect_equal_to_reference(info(vec),"rds/info1.rds",  update = FALSE)

a = matrix(1:9, 3)
expect_identical(info(a), info(as.data.frame(a)))

val_lab(vec) = c(a=1,b=2,d=45)
expect_equal_to_reference(info(vec),"rds/info2.rds",  update = FALSE)
var_lab(vec) = "Short vec"

expect_equal_to_reference(info(vec),"rds/info3.rds",  update = FALSE)

vec = data.frame(first=vec,second=vec)
expect_equal_to_reference(info(vec),"rds/info4.rds",  update = FALSE)

data(iris)
if(as.numeric(version$major) ==3 && as.numeric(version$minor)<4){
    expect_equal_to_reference(info(iris),"rds/info5.rds",  update = FALSE)
    expect_equal_to_reference(info(iris,max_levels=3),"rds/info6.rds",  update = FALSE)
    expect_equal_to_reference(info(iris,frequencies = FALSE),"rds/info7.rds",  update = FALSE)
} else {
    expect_equal_to_reference(info(iris),"rds/info5_R3.4.rds",  update = FALSE)
    expect_equal_to_reference(info(iris,max_levels=3),"rds/info6_R3.4.rds",  update = FALSE)
    expect_equal_to_reference(info(iris,frequencies = FALSE),"rds/info7_R3.4.rds",  update = FALSE)    
}

expect_equal_to_reference(info(iris,stats = FALSE, frequencies = FALSE),"rds/info8.rds",  update = FALSE)

vec = NA
expect_equal_to_reference(info(vec),"rds/info9.rds",  update = FALSE)

vec = rep(NA, 5)
expect_equal_to_reference(info(vec),"rds/info10.rds",  update = FALSE)

vec = data.frame(first=vec,second=vec)
expect_equal_to_reference(info(vec),"rds/info11.rds",  update = FALSE)

lst = list(a = c(1:5,NA), b = c(45,NA))
expect_equal_to_reference(info(lst),"rds/info12.rds",  update = FALSE)

if(as.numeric(version$major) ==3 && as.numeric(version$minor)<4){
    vec = c(2, 2, 2, 1, NA, NA, NA, 3, 3)
    expect_equal_to_reference(info(vec), "rds/info13.rds",  update = FALSE)
} else {
    expect_equal_to_reference(info(vec), "rds/info13_R3.4.rds",  update = FALSE)
}