R Under development (unstable) (2025-04-17 r88153 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2025 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(datapackage)
> 
> source("helpers.R")
> 
> # Some additional checks; we have functions returning a character in case of
> # an error and TRUE otherwise.
> expect_istrue <- function(x, ...) {
+   expect_equal( isTRUE(x), TRUE)
+ }
> expect_nistrue <- function(x, ...) {
+   expect_equal( isTRUE(x), FALSE)
+ }
> 
> # =============================================================================
> # INTEGER: Basic without constraints
> fd <- list(name = "foo", type = "integer")
> expect_istrue( datapackage:::check_integer(c(1,3,2,NA), fd))
> expect_istrue( datapackage:::check_integer(NA, fd))
> expect_istrue( datapackage:::check_integer(integer(0), fd))
> expect_nistrue(datapackage:::check_integer(1.3, fd))
> expect_nistrue(datapackage:::check_integer(0.7, fd))
> expect_istrue( datapackage:::check_integer(1.3, fd, tolerance = 0.31))
> expect_istrue( datapackage:::check_integer(0.7, fd, tolerance = 0.31))
> expect_nistrue(datapackage:::check_integer("3", fd))
> expect_istrue( datapackage:::check_integer(logical(0), fd))
> expect_nistrue(datapackage:::check_integer(TRUE, fd))
> 
> # Check for correct type in fielddescriptor
> fd <- list(name = "foo", type = "number")
> expect_nistrue(datapackage:::check_integer(1:3, fd))
> 
> # INTEGER: Factor and categories
> fx <- factor(c(2,1,NA), levels=1:2, labels=c("a","b"))
> cat <- list(list(value = 1, label = "a"), list(value = 2, label = "b"))
> fd <- list(name="foo", type="integer", categories = cat)
> expect_istrue(datapackage:::check_integer(fx, fd))
> 
> fx2 <- factor(c(2,1,NA), levels=1:2, labels=c("c","b"))
> expect_nistrue(datapackage:::check_integer(fx2, fd))
> 
> cat2 <- list(list(value = "1", label = "a"), list(value = "2", label = "b"))
> fd2 <- list(name="foo", type="integer", categories = cat2)
> expect_nistrue(datapackage:::check_integer(fx2, fd2))
> 
> fx2 <- factor(c(NA_integer_), levels=1:2, labels=c("a","b"))
> expect_istrue(datapackage:::check_integer(fx2, fd))
> 
> fd2 <- list(name="foo", type="integer")
> expect_nistrue(datapackage:::check_integer(fx, fd2))
> 
> # INTEGER: Constraints
> fd <- list(name="foo", type="integer", constraints = list(minimum = 2))
> x <- c(1,3,1,NA)
> expect_nistrue(datapackage:::check_integer(x, fd))
> expect_istrue(datapackage:::check_integer(x, fd, constraints = FALSE))
> x <- c(2,3,2,NA)
> expect_istrue(datapackage:::check_integer(x, fd))
> 
> fd <- list(name="foo", type="integer", constraints = list(maximum = 2))
> x <- c(1,3,1,NA)
> expect_nistrue(datapackage:::check_integer(x, fd))
> expect_istrue(datapackage:::check_integer(x, fd, constraints = FALSE))
> x <- c(1,2,1,NA)
> expect_istrue(datapackage:::check_integer(x, fd))
> 
> fd <- list(name="foo", type="integer", constraints = list(unique = TRUE))
> x <- c(1,NA,3,1,NA)
> expect_nistrue(datapackage:::check_integer(x, fd))
> expect_istrue(datapackage:::check_integer(x, fd, constraints = FALSE))
> x <- c(1,3,NA)
> expect_istrue(datapackage:::check_integer(x, fd))
> 
> fd <- list(name="foo", type="integer", constraints = list(required = TRUE))
> x <- c(1,NA,3,1,NA)
> expect_nistrue(datapackage:::check_integer(x, fd))
> expect_istrue(datapackage:::check_integer(x, fd, constraints = FALSE))
> x <- c(1,4,3,1)
> expect_istrue(datapackage:::check_integer(x, fd))
> 
> fd <- list(name="foo", type="integer", constraints = list(exclusiveMaximum = 3))
> x <- c(1,NA,3,1,NA)
> expect_nistrue(datapackage:::check_integer(x, fd))
> expect_istrue(datapackage:::check_integer(x, fd, constraints = FALSE))
> x <- c(1,NA,2,1,NA)
> expect_istrue(datapackage:::check_integer(x, fd))
> 
> fd <- list(name="foo", type="integer", constraints = list(exclusiveMinimum = 1))
> x <- c(1,NA,3,1,NA)
> expect_nistrue(datapackage:::check_integer(x, fd))
> expect_istrue(datapackage:::check_integer(x, fd, constraints = FALSE))
> x <- c(2,NA,3,2,NA)
> expect_istrue(datapackage:::check_integer(x, fd))
> 
> fd <- list(name="foo", type="integer", constraints = list(enum = c(2,3)))
> x <- c(1,NA,3,1,NA)
> expect_nistrue(datapackage:::check_integer(x, fd))
> expect_istrue(datapackage:::check_integer(x, fd, constraints = FALSE))
> x <- c(2,NA,3,2,NA)
> expect_istrue(datapackage:::check_integer(x, fd))
> 
> x <- c(1,3,1,NA)
> fd <- list(name="foo", type="integer", constraints = list(minimum = 2, maximum = 2))
> y <- datapackage:::check_integer(x, fd)
> expect_equal(is.character(y), TRUE)
> expect_equal(length(y), 2)
> 
> 
> 
> # =============================================================================
> # NUMBER: Basic without constraints
> fd <- list(name = "foo", type = "number")
> expect_istrue( datapackage:::check_number(c(1,3,2,NA), fd))
> expect_istrue( datapackage:::check_number(NA, fd))
> expect_istrue( datapackage:::check_number(numeric(0), fd))
> expect_istrue(datapackage:::check_number(1.3, fd))
> expect_istrue(datapackage:::check_number(0.7, fd))
> expect_nistrue(datapackage:::check_number("3", fd))
> expect_istrue( datapackage:::check_number(logical(0), fd))
> expect_nistrue(datapackage:::check_number(TRUE, fd))
> 
> # Check for correct type in fielddescriptor
> fd <- list(name = "foo", type = "integer")
> expect_nistrue(datapackage:::check_number(1:3, fd))
> 
> # NUMBER: Constraints
> fd <- list(name="foo", type="number", constraints = list(minimum = 2))
> x <- c(1,3,1,NA)
> expect_nistrue(datapackage:::check_number(x, fd))
> expect_istrue(datapackage:::check_number(x, fd, constraints = FALSE))
> x <- c(2,3,2,NA)
> expect_istrue(datapackage:::check_number(x, fd))
> 
> fd <- list(name="foo", type="number", constraints = list(maximum = 2))
> x <- c(1,3,1,NA)
> expect_nistrue(datapackage:::check_number(x, fd))
> expect_istrue(datapackage:::check_number(x, fd, constraints = FALSE))
> x <- c(1,2,1,NA)
> expect_istrue(datapackage:::check_number(x, fd))
> 
> fd <- list(name="foo", type="number", constraints = list(unique = TRUE))
> x <- c(1,NA,3,1,NA)
> expect_nistrue(datapackage:::check_number(x, fd))
> expect_istrue(datapackage:::check_number(x, fd, constraints = FALSE))
> x <- c(1,3,2,NA)
> expect_istrue(datapackage:::check_number(x, fd))
> 
> fd <- list(name="foo", type="number", constraints = list(required = TRUE))
> x <- c(1,NA,3,1,NA)
> expect_nistrue(datapackage:::check_number(x, fd))
> expect_istrue(datapackage:::check_number(x, fd, constraints = FALSE))
> x <- c(1,3,1,4)
> expect_istrue(datapackage:::check_number(x, fd))
> 
> fd <- list(name="foo", type="number", constraints = list(exclusiveMaximum = 3))
> x <- c(1,NA,3,1,NA)
> expect_nistrue(datapackage:::check_number(x, fd))
> expect_istrue(datapackage:::check_number(x, fd, constraints = FALSE))
> x <- c(1,NA,2,1,NA)
> expect_istrue(datapackage:::check_number(x, fd))
> 
> fd <- list(name="foo", type="number", constraints = list(exclusiveMinimum = 1))
> x <- c(1,NA,3,1,NA)
> expect_nistrue(datapackage:::check_number(x, fd))
> expect_istrue(datapackage:::check_number(x, fd, constraints = FALSE))
> x <- c(2,NA,3,2,NA)
> expect_istrue(datapackage:::check_number(x, fd))
> 
> fd <- list(name="foo", type="number", constraints = list(enum = c(2,3)))
> x <- c(1,NA,3,1,NA)
> expect_nistrue(datapackage:::check_number(x, fd))
> expect_istrue(datapackage:::check_number(x, fd, constraints = FALSE))
> x <- c(2,NA,3,2,NA)
> expect_istrue(datapackage:::check_number(x, fd))
> 
> x <- c(1,3,1,NA)
> fd <- list(name="foo", type="number", constraints = list(minimum = 2, maximum = 2))
> y <- datapackage:::check_number(x, fd)
> expect_equal(is.character(y), TRUE)
> expect_equal(length(y), 2)
> 
> 
> # =============================================================================
> # STRING: Basic without constraints
> fd <- list(name = "foo", type = "string")
> expect_istrue( datapackage:::check_string(c("a", "c", "b", NA), fd))
> expect_istrue( datapackage:::check_string(NA, fd))
> expect_istrue( datapackage:::check_string(character(0), fd))
> expect_istrue( datapackage:::check_string(logical(0), fd))
> expect_nistrue(datapackage:::check_string(TRUE, fd))
> 
> # Check for correct type in fielddescriptor
> fd <- list(name = "foo", type = "number")
> expect_nistrue(datapackage:::check_string(c("a", "c", "b", NA), fd))
> 
> # STRING: Constraints
> fd <- list(name="foo", type="string", constraints = list(unique = TRUE))
> x <- c("a",NA,"c","a",NA)
> expect_nistrue(datapackage:::check_string(x, fd))
> expect_istrue(datapackage:::check_string(x, fd, constraints = FALSE))
> x <- c("a","c",NA)
> expect_istrue(datapackage:::check_string(x, fd))
> 
> fd <- list(name="foo", type="string", constraints = list(required = TRUE))
> x <- c("a",NA,"c","a",NA)
> expect_nistrue(datapackage:::check_string(x, fd))
> expect_istrue(datapackage:::check_string(x, fd, constraints = FALSE))
> x <- c("a","c","a")
> expect_istrue(datapackage:::check_string(x, fd))
> 
> fd <- list(name="foo", type="string", constraints = list(enum = c("b", "c")))
> x <- c("a",NA,"c","a",NA)
> expect_nistrue(datapackage:::check_string(x, fd))
> expect_istrue(datapackage:::check_string(x, fd, constraints = FALSE))
> x <- c("b",NA,"c","b",NA)
> expect_istrue(datapackage:::check_string(x, fd))
> 
> x <- c("a",NA,"c","a",NA)
> fd <- list(name="foo", type="string", constraints = list(unique = TRUE, enum = c("b", "c")))
> y <- datapackage:::check_string(x, fd)
> expect_equal(is.character(y), TRUE)
> expect_equal(length(y), 2)
> 
> 
> # =============================================================================
> # BOOLEAN: Basic without constraints
> fd <- list(name = "foo", type = "boolean")
> expect_istrue( datapackage:::check_boolean(c(TRUE, FALSE, FALSE, NA), fd))
> expect_istrue( datapackage:::check_boolean(NA, fd))
> expect_istrue( datapackage:::check_boolean(logical(0), fd))
> expect_nistrue(datapackage:::check_boolean(c(1, 0, 0), fd))
> 
> # Check for correct type in fielddescriptor
> fd <- list(name = "foo", type = "number")
> expect_nistrue(datapackage:::check_boolean(c("a", "c", "b", NA), fd))
> 
> # BOOLEAN: Constraints
> fd <- list(name="foo", type="boolean", constraints = list(unique = TRUE))
> x <- c(TRUE, NA, FALSE, TRUE, NA)
> expect_nistrue(datapackage:::check_boolean(x, fd))
> expect_istrue(datapackage:::check_boolean(x, fd, constraints = FALSE))
> x <- c(TRUE, FALSE, NA)
> expect_istrue(datapackage:::check_boolean(x, fd))
> 
> fd <- list(name="foo", type="boolean", constraints = list(required = TRUE))
> x <- c(TRUE, NA, FALSE, TRUE, NA)
> expect_nistrue(datapackage:::check_boolean(x, fd))
> expect_istrue(datapackage:::check_boolean(x, fd, constraints = FALSE))
> x <- c(TRUE, FALSE, TRUE)
> expect_istrue(datapackage:::check_boolean(x, fd))
> 
> fd <- list(name="foo", type="boolean", constraints = list(enum = c(TRUE)))
> x <- c(TRUE, NA, FALSE, TRUE, NA)
> expect_nistrue(datapackage:::check_boolean(x, fd))
> expect_istrue(datapackage:::check_boolean(x, fd, constraints = FALSE))
> x <- c(TRUE, NA, TRUE, NA)
> expect_istrue(datapackage:::check_boolean(x, fd))
> 
> x <- c(TRUE, NA, FALSE, TRUE, NA)
> fd <- list(name="foo", type="boolean", constraints = list(unique = TRUE, enum = c(TRUE)))
> y <- datapackage:::check_boolean(x, fd)
> expect_equal(is.character(y), TRUE)
> expect_equal(length(y), 2)
> 
> # =============================================================================
> # DATE: Basic without constraints
> fd <- list(name = "foo", type = "date")
> expect_istrue( datapackage:::check_date(as.Date("2024-01-01", "2024-03-01", "2024-02-01", NA), fd))
> expect_istrue( datapackage:::check_date(NA, fd))
> expect_istrue( datapackage:::check_date(as.Date(character(0)), fd))
> expect_istrue(datapackage:::check_date(as.POSIXct("2024-01-01 16:45"), fd))
> expect_istrue(datapackage:::check_date(as.POSIXlt("2024-01-01 16:45"), fd))
> expect_nistrue(datapackage:::check_date("3", fd))
> expect_istrue( datapackage:::check_date(logical(0), fd))
> expect_nistrue(datapackage:::check_date(TRUE, fd))
> 
> # Check for correct type in fielddescriptor
> fd <- list(name = "foo", type = "integer")
> expect_nistrue(datapackage:::check_date(1:3, fd))
> 
> # DATE: Constraints
> fd <- list(name="foo", type="date", constraints = list(minimum = as.Date("2024-01-04")))
> x <- as.Date(c("2024-01-02","2024-03-23","2024-01-02",NA))
> expect_nistrue(datapackage:::check_date(x, fd))
> expect_istrue(datapackage:::check_date(x, fd, constraints = FALSE))
> x <- as.Date(c("2024-01-04","2024-03-23","2024-01-04",NA))
> expect_istrue(datapackage:::check_date(x, fd))
> 
> fd <- list(name="foo", type="date", constraints = list(maximum = as.Date("2024-03-20")))
> x <- as.Date(c("2024-01-02","2024-03-23","2024-01-02",NA))
> expect_nistrue(datapackage:::check_date(x, fd))
> expect_istrue(datapackage:::check_date(x, fd, constraints = FALSE))
> x <- as.Date(c("2024-01-02","2024-03-20","2024-01-02",NA))
> expect_istrue(datapackage:::check_date(x, fd))
> 
> fd <- list(name="foo", type="date", constraints = list(unique = TRUE))
> x <- as.Date(c("2024-01-02","2024-03-23","2024-01-02",NA))
> expect_nistrue(datapackage:::check_date(x, fd))
> expect_istrue(datapackage:::check_date(x, fd, constraints = FALSE))
> x <- as.Date(c("2024-01-02","2024-03-23","2024-01-03",NA))
> expect_istrue(datapackage:::check_date(x, fd))
> 
> fd <- list(name="foo", type="date", constraints = list(required = TRUE))
> x <- as.Date(c("2024-01-02","2024-03-23","2024-01-02",NA))
> expect_nistrue(datapackage:::check_date(x, fd))
> expect_istrue(datapackage:::check_date(x, fd, constraints = FALSE))
> x <- as.Date(c("2024-01-02","2024-03-23","2024-01-02"))
> expect_istrue(datapackage:::check_date(x, fd))
> 
> fd <- list(name="foo", type="date", constraints = list(exclusiveMaximum = as.Date("2024-03-23")))
> x <- as.Date(c("2024-01-02","2024-03-23","2024-01-02",NA))
> expect_nistrue(datapackage:::check_date(x, fd))
> expect_istrue(datapackage:::check_date(x, fd, constraints = FALSE))
> x <- as.Date(c("2024-01-02","2024-03-22","2024-01-02",NA))
> expect_istrue(datapackage:::check_date(x, fd))
> 
> fd <- list(name="foo", type="date", constraints = list(exclusiveMinimum = as.Date("2024-01-02")))
> x <- as.Date(c("2024-01-02","2024-03-23","2024-01-02",NA))
> expect_nistrue(datapackage:::check_date(x, fd))
> expect_istrue(datapackage:::check_date(x, fd, constraints = FALSE))
> x <- as.Date(c("2024-01-03","2024-03-23","2024-01-03",NA))
> expect_istrue(datapackage:::check_date(x, fd))
> 
> fd <- list(name="foo", type="date", constraints = list(enum = as.Date(c("2024-02-01", "2024-01-02"))))
> x <- as.Date(c("2024-01-02","2024-03-23","2024-01-02",NA))
> expect_nistrue(datapackage:::check_date(x, fd))
> expect_istrue(datapackage:::check_date(x, fd, constraints = FALSE))
> x <- as.Date(c("2024-01-02","2024-02-01","2024-01-02",NA))
> expect_istrue(datapackage:::check_date(x, fd))
> 
> x <- as.Date(c("2024-01-02","2024-03-23","2024-01-02",NA))
> fd <- list(name="foo", type="date", constraints = list(required = TRUE, unique = TRUE))
> y <- datapackage:::check_date(x, fd)
> expect_equal(is.character(y), TRUE)
> expect_equal(length(y), 2)
> 
> # =============================================================================
> # DATETIME: Basic without constraints
> fd <- list(name = "foo", type = "datetime")
> expect_istrue( datapackage:::check_datetime(
+     as.POSIXct("2024-01-01 12:13:14", "2024-03-01 00:03:03", "2024-02-01 23:23:23", NA), fd))
Warning messages:
1: In strptime(x, format, tz = tz) :
  unknown timezone '2024-03-01 00:03:03'
2: In as.POSIXct.POSIXlt(as.POSIXlt(x, tz, ...), tz, ...) :
  unknown timezone '2024-03-01 00:03:03'
> expect_istrue( datapackage:::check_datetime(NA, fd))
> expect_istrue( datapackage:::check_datetime(as.POSIXct(character(0)), fd))
> expect_istrue(datapackage:::check_datetime(as.POSIXlt("2024-01-01 16:45"), fd))
> expect_nistrue(datapackage:::check_datetime("3", fd))
> expect_istrue( datapackage:::check_datetime(logical(0), fd))
> expect_nistrue(datapackage:::check_datetime(TRUE, fd))
> 
> # Check for correct type in fielddescriptor
> fd <- list(name = "foo", type = "integer")
> expect_nistrue(datapackage:::check_datetime(1:3, fd))
> 
> # DATETIME: Constraints
> fd <- list(name="foo", type="datetime", constraints = list(minimum = as.POSIXct("2024-01-02 14:00:00")))
> x <- as.POSIXct(c("2024-01-02 12:13:14","2024-03-23 00:03:03","2024-01-02 23:23:23",NA))
> expect_nistrue(datapackage:::check_datetime(x, fd))
> expect_istrue(datapackage:::check_datetime(x, fd, constraints = FALSE))
> x <- as.POSIXct(c("2024-01-02 14:00:00","2024-03-23 00:03:03","2024-01-02 23:23:23",NA))
> expect_istrue(datapackage:::check_datetime(x, fd))
> 
> fd <- list(name="foo", type="datetime", constraints = list(maximum = as.POSIXct("2024-03-23 00:03:00")))
> x <- as.POSIXct(c("2024-01-02 12:13:14","2024-03-23 00:03:03","2024-01-02 23:23:23",NA))
> expect_nistrue(datapackage:::check_datetime(x, fd))
> expect_istrue(datapackage:::check_datetime(x, fd, constraints = FALSE))
> x <- as.POSIXct(c("2024-01-02 12:13:14","2024-03-23 00:03:00","2024-01-02 23:23:23",NA))
> expect_istrue(datapackage:::check_datetime(x, fd))
> 
> fd <- list(name="foo", type="datetime", constraints = list(unique = TRUE))
> x <- as.POSIXct(c("2024-01-02 12:13:14","2024-03-23 00:03:03","2024-01-02 12:13:14",NA))
> expect_nistrue(datapackage:::check_datetime(x, fd))
> expect_istrue(datapackage:::check_datetime(x, fd, constraints = FALSE))
> x <- as.POSIXct(c("2024-01-02 12:13:14","2024-03-23 00:03:03","2024-01-02 12:13:15",NA))
> expect_istrue(datapackage:::check_datetime(x, fd))
> 
> fd <- list(name="foo", type="datetime", constraints = list(required = TRUE))
> x <- as.POSIXct(c("2024-01-02 12:13:14","2024-03-23 00:03:03","2024-01-02 23:23:23",NA))
> expect_nistrue(datapackage:::check_datetime(x, fd))
> expect_istrue(datapackage:::check_datetime(x, fd, constraints = FALSE))
> x <- as.POSIXct(c("2024-01-02 12:13:14","2024-03-23 00:03:03","2024-01-02 23:23:23"))
> expect_istrue(datapackage:::check_datetime(x, fd))
> 
> fd <- list(name="foo", type="datetime", constraints = list(exclusiveMaximum = as.POSIXct("2024-03-23 00:03:03")))
> x <- as.POSIXct(c("2024-01-02 12:13:14","2024-03-23 00:03:03","2024-01-02 23:23:23",NA))
> expect_nistrue(datapackage:::check_datetime(x, fd))
> expect_istrue(datapackage:::check_datetime(x, fd, constraints = FALSE))
> x <- as.POSIXct(c("2024-01-02 12:13:14","2024-03-23 00:03:02","2024-01-02 23:23:23",NA))
> expect_istrue(datapackage:::check_datetime(x, fd))
> 
> fd <- list(name="foo", type="datetime", constraints = list(exclusiveMinimum = as.POSIXct("2024-01-02 12:13:14")))
> x <- as.POSIXct(c("2024-01-02 12:13:14","2024-03-23 00:03:03","2024-01-02 23:23:23",NA))
> expect_nistrue(datapackage:::check_datetime(x, fd))
> expect_istrue(datapackage:::check_datetime(x, fd, constraints = FALSE))
> x <- as.POSIXct(c("2024-01-02 12:13:15","2024-03-23 00:03:03","2024-01-02 23:23:23",NA))
> expect_istrue(datapackage:::check_datetime(x, fd))
> 
> fd <- list(name="foo", type="datetime", constraints = list(enum = as.POSIXct(c("2024-01-02 12:13:14", "2024-01-02 23:23:23"))))
> x <- as.POSIXct(c("2024-01-02 12:13:14","2024-03-23 00:03:03","2024-01-02 23:23:23",NA))
> expect_nistrue(datapackage:::check_datetime(x, fd))
> expect_istrue(datapackage:::check_datetime(x, fd, constraints = FALSE))
> x <- as.POSIXct(c("2024-01-02 12:13:14","2024-01-02 12:13:14","2024-01-02 23:23:23",NA))
> expect_istrue(datapackage:::check_datetime(x, fd))
> 
> x <- as.POSIXct(c("2024-01-02 12:13:14","2024-03-23 00:03:03","2024-01-02 12:13:14",NA))
> fd <- list(name="foo", type="datetime", constraints = list(required = TRUE, unique = TRUE))
> y <- datapackage:::check_datetime(x, fd)
> expect_equal(is.character(y), TRUE)
> expect_equal(length(y), 2)
> 
> # =============================================================================
> # YEAR: Basic without constraints
> fd <- list(name = "foo", type = "year")
> expect_istrue( datapackage:::check_year(c(1,3,2,NA), fd))
> expect_istrue( datapackage:::check_year(NA, fd))
> expect_istrue( datapackage:::check_year(numeric(0), fd))
> expect_nistrue(datapackage:::check_year(1.3, fd))
> expect_nistrue(datapackage:::check_year(0.7, fd))
> expect_istrue(datapackage:::check_year(1.3, fd, tolerance = 0.31))
> expect_istrue(datapackage:::check_year(0.7, fd, tolerance = 0.31))
> expect_nistrue(datapackage:::check_year("3", fd))
> expect_istrue( datapackage:::check_year(logical(0), fd))
> expect_nistrue(datapackage:::check_year(TRUE, fd))
> 
> # Check for correct type in fielddescriptor
> fd <- list(name = "foo", type = "number")
> expect_nistrue(datapackage:::check_year(1:3, fd))
> 
> # NUMBER: Constraints
> fd <- list(name="foo", type="year", constraints = list(minimum = 2))
> x <- c(1,3,1,NA)
> expect_nistrue(datapackage:::check_year(x, fd))
> expect_istrue(datapackage:::check_year(x, fd, constraints = FALSE))
> x <- c(2,3,2,NA)
> expect_istrue(datapackage:::check_year(x, fd))
> 
> fd <- list(name="foo", type="year", constraints = list(maximum = 2))
> x <- c(1,3,1,NA)
> expect_nistrue(datapackage:::check_year(x, fd))
> expect_istrue(datapackage:::check_year(x, fd, constraints = FALSE))
> x <- c(1,2,1,NA)
> expect_istrue(datapackage:::check_year(x, fd))
> 
> fd <- list(name="foo", type="year", constraints = list(unique = TRUE))
> x <- c(1,NA,3,1,NA)
> expect_nistrue(datapackage:::check_year(x, fd))
> expect_istrue(datapackage:::check_year(x, fd, constraints = FALSE))
> x <- c(1,3,2,NA)
> expect_istrue(datapackage:::check_year(x, fd))
> 
> fd <- list(name="foo", type="year", constraints = list(required = TRUE))
> x <- c(1,NA,3,1,NA)
> expect_nistrue(datapackage:::check_year(x, fd))
> expect_istrue(datapackage:::check_year(x, fd, constraints = FALSE))
> x <- c(1,3,1,4)
> expect_istrue(datapackage:::check_year(x, fd))
> 
> fd <- list(name="foo", type="year", constraints = list(exclusiveMaximum = 3))
> x <- c(1,NA,3,1,NA)
> expect_nistrue(datapackage:::check_year(x, fd))
> expect_istrue(datapackage:::check_year(x, fd, constraints = FALSE))
> x <- c(1,NA,2,1,NA)
> expect_istrue(datapackage:::check_year(x, fd))
> 
> fd <- list(name="foo", type="year", constraints = list(exclusiveMinimum = 1))
> x <- c(1,NA,3,1,NA)
> expect_nistrue(datapackage:::check_year(x, fd))
> expect_istrue(datapackage:::check_year(x, fd, constraints = FALSE))
> x <- c(2,NA,3,2,NA)
> expect_istrue(datapackage:::check_year(x, fd))
> 
> fd <- list(name="foo", type="year", constraints = list(enum = c(2,3)))
> x <- c(1,NA,3,1,NA)
> expect_nistrue(datapackage:::check_year(x, fd))
> expect_istrue(datapackage:::check_year(x, fd, constraints = FALSE))
> x <- c(2,NA,3,2,NA)
> expect_istrue(datapackage:::check_year(x, fd))
> 
> x <- c(1,3,1,NA)
> fd <- list(name="foo", type="year", constraints = list(minimum = 2, maximum = 2))
> y <- datapackage:::check_year(x, fd)
> expect_equal(is.character(y), TRUE)
> expect_equal(length(y), 2)
> 
> # =============================================================================
> # YEARMONTH: Basic without constraints
> fd <- list(name = "foo", type = "yearmonth")
> expect_istrue( datapackage:::check_yearmonth(as.Date(c("2024-01-01", "2024-03-01", "2024-02-01", NA)), fd))
> expect_istrue( datapackage:::check_yearmonth(NA, fd))
> expect_istrue( datapackage:::check_yearmonth(as.Date(character(0)), fd))
> expect_nistrue(datapackage:::check_yearmonth(as.POSIXct("2024-01-01 00:00"), fd))
> expect_nistrue(datapackage:::check_yearmonth("3", fd))
> expect_istrue( datapackage:::check_yearmonth(logical(0), fd))
> expect_nistrue(datapackage:::check_yearmonth(TRUE, fd))
> expect_nistrue( datapackage:::check_yearmonth(as.Date(c("2024-01-05", "2024-03-01", "2024-02-01", NA)), fd))
> expect_istrue( datapackage:::check_yearmonth(as.Date(c("2024-01-05", "2024-03-01", "2024-02-01", NA)), fd, 
+     tolerance = 5))
> 
> # Check for correct type in fielddescriptor
> fd <- list(name = "foo", type = "integer")
> expect_nistrue(datapackage:::check_yearmonth(1:3, fd))
> 
> # DATE: Constraints
> fd <- list(name="foo", type="yearmonth", constraints = list(minimum = as.Date("2024-02-01")))
> x <- as.Date(c("2024-01-01","2024-03-01","2024-01-01",NA))
> expect_nistrue(datapackage:::check_yearmonth(x, fd))
> expect_istrue(datapackage:::check_yearmonth(x, fd, constraints = FALSE))
> x <- as.Date(c("2024-02-01","2024-03-01","2024-02-01",NA))
> expect_istrue(datapackage:::check_yearmonth(x, fd))
> 
> fd <- list(name="foo", type="yearmonth", constraints = list(minimum = as.Date("2024-02-05")))
> x <- as.Date(c("2024-01-01","2024-03-01","2024-01-01",NA))
> expect_nistrue(datapackage:::check_yearmonth(x, fd))
> expect_istrue(datapackage:::check_yearmonth(x, fd, constraints = FALSE))
> x <- as.Date(c("2024-02-01","2024-03-01","2024-02-01",NA))
> expect_istrue(datapackage:::check_yearmonth(x, fd))
> 
> fd <- list(name="foo", type="yearmonth", constraints = list(maximum = as.Date("2024-02-01")))
> x <- as.Date(c("2024-01-01","2024-03-01","2024-01-01",NA))
> expect_nistrue(datapackage:::check_yearmonth(x, fd))
> expect_istrue(datapackage:::check_yearmonth(x, fd, constraints = FALSE))
> x <- as.Date(c("2024-01-01","2024-02-01","2024-01-01",NA))
> expect_istrue(datapackage:::check_yearmonth(x, fd))
> 
> fd <- list(name="foo", type="yearmonth", constraints = list(maximum = as.Date("2024-02-01")))
> x <- as.Date(c("2024-01-01","2024-03-01","2024-01-01",NA))
> expect_nistrue(datapackage:::check_yearmonth(x, fd))
> expect_istrue(datapackage:::check_yearmonth(x, fd, constraints = FALSE))
> x <- as.Date(c("2024-01-01","2024-02-01","2024-01-01",NA))
> expect_istrue(datapackage:::check_yearmonth(x, fd))
> 
> fd <- list(name="foo", type="yearmonth", constraints = list(unique = TRUE))
> x <- as.Date(c("2024-01-01","2024-03-01","2024-01-01",NA))
> expect_nistrue(datapackage:::check_yearmonth(x, fd))
> expect_istrue(datapackage:::check_yearmonth(x, fd, constraints = FALSE))
> x <- as.Date(c("2024-01-01","2024-03-01","2024-02-01",NA))
> expect_istrue(datapackage:::check_yearmonth(x, fd))
> 
> fd <- list(name="foo", type="yearmonth", constraints = list(required = TRUE))
> x <- as.Date(c("2024-01-01","2024-03-01","2024-01-01",NA))
> expect_nistrue(datapackage:::check_yearmonth(x, fd))
> expect_istrue(datapackage:::check_yearmonth(x, fd, constraints = FALSE))
> x <- as.Date(c("2024-01-01","2024-03-01","2024-01-01"))
> expect_istrue(datapackage:::check_yearmonth(x, fd))
> 
> fd <- list(name="foo", type="yearmonth", constraints = list(exclusiveMaximum = as.Date("2024-03-01")))
> x <- as.Date(c("2024-01-01","2024-03-01","2024-01-01",NA))
> expect_nistrue(datapackage:::check_yearmonth(x, fd))
> expect_istrue(datapackage:::check_yearmonth(x, fd, constraints = FALSE))
> x <- as.Date(c("2024-01-01","2024-02-01","2024-01-01",NA))
> expect_istrue(datapackage:::check_yearmonth(x, fd))
> 
> fd <- list(name="foo", type="yearmonth", constraints = list(exclusiveMaximum = as.Date("2024-03-05")))
> x <- as.Date(c("2024-01-01","2024-03-01","2024-01-01",NA))
> expect_nistrue(datapackage:::check_yearmonth(x, fd))
> expect_istrue(datapackage:::check_yearmonth(x, fd, constraints = FALSE))
> x <- as.Date(c("2024-01-01","2024-02-01","2024-01-01",NA))
> expect_istrue(datapackage:::check_yearmonth(x, fd))
> 
> fd <- list(name="foo", type="yearmonth", constraints = list(exclusiveMinimum = as.Date("2024-01-01")))
> x <- as.Date(c("2024-01-01","2024-03-01","2024-01-01",NA))
> expect_nistrue(datapackage:::check_yearmonth(x, fd))
> expect_istrue(datapackage:::check_yearmonth(x, fd, constraints = FALSE))
> x <- as.Date(c("2024-02-01","2024-03-01","2024-02-01",NA))
> expect_istrue(datapackage:::check_yearmonth(x, fd))
> 
> fd <- list(name="foo", type="yearmonth", constraints = list(exclusiveMinimum = as.Date("2024-01-05")))
> x <- as.Date(c("2024-01-01","2024-03-01","2024-01-01",NA))
> expect_nistrue(datapackage:::check_yearmonth(x, fd))
> expect_istrue(datapackage:::check_yearmonth(x, fd, constraints = FALSE))
> x <- as.Date(c("2024-02-01","2024-03-01","2024-02-01",NA))
> expect_istrue(datapackage:::check_yearmonth(x, fd))
> 
> fd <- list(name="foo", type="yearmonth", constraints = list(enum = as.Date(c("2024-02-01", "2024-01-01"))))
> x <- as.Date(c("2024-01-01","2024-03-01","2024-01-01",NA))
> expect_nistrue(datapackage:::check_yearmonth(x, fd))
> expect_istrue(datapackage:::check_yearmonth(x, fd, constraints = FALSE))
> x <- as.Date(c("2024-01-01","2024-02-01","2024-01-01",NA))
> expect_istrue(datapackage:::check_yearmonth(x, fd))
> 
> fd <- list(name="foo", type="yearmonth", constraints = list(enum = as.Date(c("2024-02-05", "2024-01-05"))))
> x <- as.Date(c("2024-01-01","2024-03-01","2024-01-01",NA))
> expect_nistrue(datapackage:::check_yearmonth(x, fd))
> expect_istrue(datapackage:::check_yearmonth(x, fd, constraints = FALSE))
> x <- as.Date(c("2024-01-01","2024-02-01","2024-01-01",NA))
> expect_istrue(datapackage:::check_yearmonth(x, fd))
> 
> 
> x <- as.Date(c("2024-01-01","2024-03-01","2024-01-01",NA))
> fd <- list(name="foo", type="yearmonth", constraints = list(required = TRUE, unique = TRUE))
> y <- datapackage:::check_yearmonth(x, fd)
> expect_equal(is.character(y), TRUE)
> expect_equal(length(y), 2)
> 
> 
> # =============================================================================
> # GENERAL dp_check_field
> # Most tests will be covered by the tests above; here check for each type a 
> # couple of cases to see if all arguments are passed on the datapackage:::check_<type> 
> # functions
> 
> x <- c(TRUE, FALSE, TRUE, NA)
> expect_istrue(dp_check_field(x, list(name = "foo", type = "boolean")))
> expect_nistrue(dp_check_field(as.character(x), list(name = "foo", type = "boolean")))
> expect_nistrue(dp_check_field(x, list(name = "foo", type = "boolean", 
+     constraints = list(unique = TRUE))))
> 
> x <- as.Date(c("2024-01-01", "2024-03-01", "2024-01-01", NA))
> expect_istrue(dp_check_field(x, list(name = "foo", type = "date")))
> expect_nistrue(dp_check_field(as.character(x), list(name = "foo", type = "date")))
> expect_nistrue(dp_check_field(x, list(name = "foo", type = "date", 
+     constraints = list(unique = TRUE))))
> 
> x <- c(1, 3, 1, NA)
> expect_istrue(dp_check_field(x, list(name = "foo", type = "integer")))
> expect_nistrue(dp_check_field(as.character(x), list(name = "foo", type = "integer")))
> expect_nistrue(dp_check_field(x, list(name = "foo", type = "integer", 
+     constraints = list(minimum = 2))))
> expect_nistrue(dp_check_field(x+0.1, list(name = "foo", type = "integer")))
> expect_istrue(dp_check_field(x+0.1, list(name = "foo", type = "integer"), 
+   tolerance = 0.3))
> 
> x <- c(1, 3, 1, NA) + 0.1
> expect_istrue(dp_check_field(x, list(name = "foo", type = "number")))
> expect_nistrue(dp_check_field(as.character(x), list(name = "foo", type = "number")))
> expect_nistrue(dp_check_field(x, list(name = "foo", type = "number", 
+     constraints = list(minimum = 2))))
> 
> x <- as.character(c(1, 3, 1, NA))
> expect_istrue(dp_check_field(x, list(name = "foo", type = "string")))
> expect_nistrue(dp_check_field(as.integer(x), list(name = "foo", type = "string")))
> expect_nistrue(dp_check_field(x, list(name = "foo", type = "string", 
+     constraints = list(required = TRUE))))
> 
> x <- as.POSIXct(c("2024-01-02 12:13:14","2024-03-23 00:03:03","2024-01-02 12:13:14",NA))
> expect_istrue(dp_check_field(x, list(name = "foo", type = "datetime")))
> expect_nistrue(dp_check_field(as.character(x), list(name = "foo", type = "datetime")))
> expect_nistrue(dp_check_field(x, list(name = "foo", type = "datetime", 
+     constraints = list(unique = TRUE))))
> 
> x <- c(1, 3, 1, NA)
> expect_istrue(dp_check_field(x, list(name = "foo", type = "year")))
> expect_nistrue(dp_check_field(as.character(x), list(name = "foo", type = "year")))
> expect_nistrue(dp_check_field(x, list(name = "foo", type = "year", 
+     constraints = list(minimum = 2))))
> expect_nistrue(dp_check_field(x+0.1, list(name = "foo", type = "year")))
> expect_istrue(dp_check_field(x+0.1, list(name = "foo", type = "year"), 
+   tolerance = 0.3))
> 
> # Unknown type
> expect_warning(ut <- dp_check_field(x, list(name = "foo", type = "foobar")))
> expect_istrue(ut)
> 
> # missing type
> expect_error(dp_check_field(x, list(name = "foo")))
> 
> 
> proc.time()
   user  system elapsed 
   0.15    0.09    0.23