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")
> 
> 
> # =============================================================================
> # Check generation of categorylists
> 
> dta <- data.frame(value = 1:3, label = letters[1:3])
> res <- dp_generate_dataresource(dta, "foo")
> expect_equal(res$path, "foo.csv")
> expect_equal(res$format, "csv")
> expect_equal(res$mediatype, "text/csv")
> expect_equal(res$encoding, "utf-8")
> tst1 <- list(fields = list(
+       list(name = "value", type = "integer"),
+       list(name = "label", type = "string")
+     ))
> tst2 <- res$schema
> attr(tst2$fields[[1]], "class") <- NULL
> attr(tst2$fields[[2]], "class") <- NULL
> expect_equal(tst1, tst2)
> expect_equal(res$categoryFieldMap, NULL)
> 
> dta <- data.frame(value = 1:3, label = letters[1:3])
> res <- dp_generate_dataresource(dta, "foo", categorieslist = TRUE)
> expect_equal(res$path, "foo.csv")
> expect_equal(res$format, "csv")
> expect_equal(res$mediatype, "text/csv")
> expect_equal(res$encoding, "utf-8")
> tst1 <- list(fields = list(
+       list(name = "value", type = "integer"),
+       list(name = "label", type = "string")
+     ))
> tst2 <- res$schema
> attr(tst2$fields[[1]], "class") <- NULL
> attr(tst2$fields[[2]], "class") <- NULL
> expect_equal(tst1, tst2)
> expect_equal(res$categoryFieldMap, list(
+     value = "value", label = "label"))
> 
> dta <- data.frame(value = 1:3)
> res <- dp_generate_dataresource(dta, "foo", categorieslist = TRUE)
> expect_equal(res$path, "foo.csv")
> expect_equal(res$format, "csv")
> expect_equal(res$mediatype, "text/csv")
> expect_equal(res$encoding, "utf-8")
> tst1 <- list(fields = list(
+       list(name = "value", type = "integer")
+     ))
> tst2 <- res$schema
> attr(tst2$fields[[1]], "class") <- NULL
> expect_equal(tst1, tst2)
> expect_equal(res$categoryFieldMap, list(
+     value = "value", label = "value"))
> 
> dta <- data.frame(codes = 1:3, labels = letters[1:3])
> attr(dta, "resource") <- structure(list(
+   categoryFieldMap = list(value = "codes", label = "labels")),
+   class = "dataresource")
> res <- dp_generate_dataresource(dta, "foo", categorieslist = TRUE)
> expect_equal(res$path, "foo.csv")
> expect_equal(res$format, "csv")
> expect_equal(res$mediatype, "text/csv")
> expect_equal(res$encoding, "utf-8")
> tst1 <- list(fields = list(
+       list(name = "codes", type = "integer"),
+       list(name = "labels", type = "string")
+     ))
> tst2 <- res$schema
> attr(tst2$fields[[1]], "class") <- NULL
> attr(tst2$fields[[2]], "class") <- NULL
> expect_equal(tst1, tst2)
> expect_equal(res$categoryFieldMap, list(
+     value = "codes", label = "labels"))
> 
> 
> dta <- data.frame(codes = 1:3, labels = letters[1:3])
> res <- dp_generate_dataresource(dta, "foo", categorieslist = TRUE)
> expect_equal(res$path, "foo.csv")
> expect_equal(res$format, "csv")
> expect_equal(res$mediatype, "text/csv")
> expect_equal(res$encoding, "utf-8")
> tst1 <- list(fields = list(
+       list(name = "codes", type = "integer"),
+       list(name = "labels", type = "string")
+     ))
> tst2 <- res$schema
> attr(tst2$fields[[1]], "class") <- NULL
> attr(tst2$fields[[2]], "class") <- NULL
> expect_equal(tst1, tst2)
> expect_equal(res$categoryFieldMap, list(
+     value = "codes", label = "labels"))
> 
> 
> dta <- data.frame(codes = 1:3, labels = letters[1:3])
> attr(dta, "resource") <- structure(list(
+   categoryFieldMap = list(value = "foo", label = "labels")),
+   class = "dataresource")
> expect_error(res <- dp_generate_dataresource(dta, "foo", categorieslist = TRUE))
> 
> dta <- data.frame(codes = 1:3, labels = letters[1:3])
> attr(dta, "resource") <- structure(list(
+   categoryFieldMap = list(value = "codes", label = "foo")),
+   class = "dataresource")
> expect_error(res <- dp_generate_dataresource(dta, "foo", categorieslist = TRUE))
> 
> 
> 
> proc.time()
   user  system elapsed 
   0.17    0.04    0.20