R Under development (unstable) (2025-03-09 r87914 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")
> 
> # In this script we write the iris dataset to a datapackage, then read it back
> # in and check if the dataset read in is the same as the original dataset
> 
> # =============================================================================
> # First we use the default generated codelist for factors
> dir <- tempdir()
> 
> data(iris)
> 
> # Create the datapackage
> dp <- new_datapackage(dir, name = "iris")
> res <- dp_generate_dataresource(iris, "iris") 
> dp_resources(dp) <- res
> dp_write_data(dp, resource_name = "iris", data = iris, write_categories = TRUE)
> 
> # OPen the new datapacakge, read the data and check
> dp2 <- open_datapackage(dir)
> iris2 <- dp2 |> dp_resource("iris") |> dp_get_data(convert_categories = "to_factor")
> expect_equal(iris, iris2, attributes = FALSE)
> 
> # Clean up
> for (f in list.files(dir, full.names = TRUE)) file.remove(f)
> ignore <- file.remove(dir)
Warning message:
In file.remove(dir) :
  cannot remove file 'D:\temp\2025_03_10_17_45_17_4148\Rtmp4aO85e', reason 'Permission denied'
> 
> 
> # ==========================================================
> # Use a custom codelist
> dir <- tempdir()
> 
> # Create the datapackage
> dp <- new_datapackage(dir, name = "iris")
> res <- dp_generate_dataresource(iris, "iris", categories_type = "resource") 
> dp_resources(dp) <- res
> 
> # SAve the custom code list
> #codelistres <- dp |> dp_resource("Species-codelist")
> codelist <- data.frame(
+   value = c(101, 102, 103),
+   label = c("setosa", "virginica", "versicolor"))
> codelistres <- dp_generate_dataresource(codelist, "species-categories")
> dp_resources(dp) <- codelistres
> dp_write_data(dp, "species-categories", data = codelist, write_categories = FALSE)
> 
> # Write the dtaset
> dp_write_data(dp, resource_name = "iris", data = iris, write_categories = FALSE)
> 
> # Open the new datapacakge, read the data and check
> dp2 <- open_datapackage(dir)
> iris2 <- dp2 |> dp_resource("iris") |> dp_get_data(convert_categories = "to_factor")
> # Check the levels
> expect_equal(levels(iris2$Species), c("setosa", "virginica", "versicolor"))
> # We need to convert to character as the levels are in a differnet order
> # as specified
> iris$Species <- as.character(iris$Species)
> iris2$Species <- as.character(iris2$Species)
> expect_equal(iris, iris2, attributes = FALSE)
> 
> # Check if the file has the correct codes
> iris2 <- dp2 |> dp_resource("iris") |> dp_get_data(convert_categories = "no")
> expect_equal(unique(iris2$Species), c(101, 103, 102))
> 
> for (f in list.files(dir, full.names = TRUE)) file.remove(f)
> ignore <- file.remove(dir)
Warning message:
In file.remove(dir) :
  cannot remove file 'D:\temp\2025_03_10_17_45_17_4148\Rtmp4aO85e', reason 'Permission denied'
> 
> 
> # =============================================================================
> # Missing values coded as NA
> dir <- tempdir()
> 
> data(iris)
> for (col in names(iris)) iris[[col]][sample(nrow(iris), 10)] <- NA
> 
> # Create the datapackage
> dp <- new_datapackage(dir, name = "iris")
> res <- dp_generate_dataresource(iris, "iris") 
> dp_property(res, "dialect") <- list(nullSequence = "FOO")
> dp_resources(dp) <- res
> dp_write_data(dp, resource_name = "iris", data = iris, write_categories = TRUE)
> # OPen the new datapacakge, read the data and check
> dp2 <- open_datapackage(dir)
> iris2 <- dp2 |> dp_resource("iris") |> dp_get_data(convert_categories = "to_factor")
> expect_equal(iris, iris2, attributes = FALSE)
> # Clean up
> for (f in list.files(dir, full.names = TRUE)) file.remove(f)
> ignore <- file.remove(dir)
Warning message:
In file.remove(dir) :
  cannot remove file 'D:\temp\2025_03_10_17_45_17_4148\Rtmp4aO85e', reason 'Permission denied'
> 
> proc.time()
   user  system elapsed 
   0.28    0.03    0.29