strop readr spec attr from statelists (close #22)

andybega · Apr 14, 2021 · 7c24deb · 7c24deb
1 parent 3dcd7aa
commit 7c24deb
Show file tree

Hide file tree

Showing 4 changed files with 23 additions and 0 deletions.
diff --git a/data-raw/cowstates.R b/data-raw/cowstates.R
@@ -35,5 +35,7 @@ stopifnot(
   nrow(cowstates[cowstates$microstate %in% TRUE, ])==(nrow(micro) - 2)
 )
 
+# drop readr spec attribute (#22)
+attr(cowstates, "spec") <- NULL
 
 usethis::use_data(cowstates, overwrite = TRUE)
diff --git a/data-raw/gwstates.R b/data-raw/gwstates.R
@@ -52,6 +52,9 @@ table(stringi::stri_enc_mark(gwstates$country_name))
 
 gwstates <- as.data.frame(gwstates)
 
+# drop readr spec attribute (#22)
+attr(gwstates, "spec") <- NULL
+
 usethis::use_data(gwstates, overwrite = TRUE)
 
 

diff --git a/data/gwstates.rda b/data/gwstates.rda
diff --git a/tests/testthat/test-data.R b/tests/testthat/test-data.R
@@ -0,0 +1,18 @@
+
+test_that("gwstates is a plain data.frame", {
+  data(gwstates)
+  expect_identical(class(gwstates), "data.frame")
+
+  # no readr attribute
+  expect_null(attr(gwstates, "spec"))
+})
+
+
+
+test_that("cowstates is a plain data.frame", {
+  data(cowstates)
+  expect_identical(class(cowstates), "data.frame")
+
+  # no readr attribute
+  expect_null(attr(cowstates, "spec"))
+})