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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.