Use .rda data files

Author: EllaKaye

src/library/datasets/data-raw/penguins.R

@@ -2,7 +2,7 @@
 # by Allison Horst, Alison Hill, and Kristen Gorman
 # https://github.com/allisonhorst/palmerpenguins
 
-source("./src/library/datasets/data/penguins_raw.R")
+load("./src/library/datasets/data/penguins_raw.rda")
 
 penguins <- penguins_raw[, c("Species", "Island", 
                              "Culmen Length (mm)", "Culmen Depth (mm)", 
@@ -24,4 +24,9 @@ penguins$year <- regmatches(penguins$year,
                             regexpr("\\d{4}", penguins$year))
 penguins$year <- as.integer(penguins$year)
 
-dump("penguins", "./src/library/datasets/data/penguins.R")
+save(penguins, file = "./src/library/datasets/data/penguins.rda")
+
+# Check identical with version palmerpenguins package
+# rm(penguins)
+# load("./src/library/datasets/data/penguins.rda")
+# identical(penguins, palmerpenguins:::penguins_df) # without sample TRUE

src/library/datasets/data-raw/penguins_raw.R

@@ -94,4 +94,13 @@ Sample <- c(Adelie_sample, Gentoo_sample, Chinstrap_sample)
 # Add sample column to penguins_raw
 penguins_raw$Sample <- Sample
 
-dump("penguins_raw", "./src/library/datasets/data/penguins_raw.R")
+save(penguins_raw, file = "./src/library/datasets/data/penguins_raw.rda")
+
+# Check identical with version palmerpenguins package
+# rm(penguins_raw)
+# load("./src/library/datasets/data/penguins_raw.rda")
+# pp_penguins_raw <- palmerpenguins:::penguins_raw_df
+# attr(pp_penguins_raw, "spec") <- NULL
+# identical(penguins_raw[, 1:17], pp_penguins_raw) # without sample TRUE
+# all.equal(tibble::as_tibble(penguins_raw[, 1:17]), palmerpenguins::penguins_raw, check.attributes = FALSE) # without sample TRUE
+