Make it a tibble

Author: mine-cetinkaya-rundel

data-raw/voter_count/voter_count-dataprep.R

@@ -1,13 +1,17 @@
-library(readr)
-
-# load data --------------------------------------------------------------------
-
-voter_count <- read.csv("november_voter_turnout.csv")
-
-# cleaning: Change incorrect 0's values to NA
-
-voter_count[voter_count == 0] <- NA
-
-# save -------------------------------------------------------------------------
-
-usethis::use_data(voter_count, overwrite= TRUE)
+# load packages ----------------------------------------------------------------
+
+library(readr)
+library(usethis)
+library(here)
+
+# load data --------------------------------------------------------------------
+
+voter_count <- read_csv(here::here("data-raw/voter_count", "november_voter_turnout.csv"))
+
+# clean data: Change incorrect 0's values to NA --------------------------------
+
+voter_count[voter_count == 0] <- NA
+
+# save -------------------------------------------------------------------------
+
+usethis::use_data(voter_count, overwrite= TRUE)