Include raw diamonds source

tdhock · Jun 15, 2015 · 4c67891 · 4c67891
1 parent 5929f1e
commit 4c67891
Show file tree

Hide file tree

Showing 4 changed files with 53,952 additions and 0 deletions.
diff --git a/.Rbuildignore b/.Rbuildignore
@@ -6,3 +6,4 @@ visual_test
 ^inst/web$
 ^notes$
 ^cran-comments.md$
+^data-raw$
diff --git a/data-raw/diamonds.R b/data-raw/diamonds.R
@@ -0,0 +1,10 @@
+library(readr)
+diamonds <- read_csv("data-raw/diamonds.csv", col_types =
+  list(
+    cut = col_factor(c("Fair", "Good", "Very Good", "Premium", "Ideal"), TRUE),
+    color = col_factor(c("D", "E", "F", "G", "H", "I", "J"), TRUE),
+    clarity = col_factor(c("I1", "SI2", "SI1", "VS2", "VS1", "VVS2", "VVS1", "IF"), TRUE)
+  )
+)
+
+devtools::use_data(diamonds, overwrite = TRUE)