|
@@ -1,13 +1,11 @@ |
|
|
library(tidyverse) |
|
|
library(tidyverse) |
|
|
# library(lubridate) |
|
|
# library(lubridate) |
|
|
# library(stringr) |
|
|
|
|
|
# library(forcats) |
|
|
|
|
|
|
|
|
|
|
|
# Load the csv data and tidy it ---- |
|
|
# Load the csv data and tidy it ---- |
|
|
read_csv("Data/.csv") %>% |
|
|
read_csv("Data/.csv") %>% |
|
|
select() %>% |
|
|
select() %>% |
|
|
filter() %>% |
|
|
filter() %>% |
|
|
mutate() %>% |
|
|
mutate() %>% |
|
|
dmap_if(is.character, factor) %>% |
|
|
|
|
|
|
|
|
mutate_if(is.character, factor) %>% |
|
|
# Save the tidy-ed data ---- |
|
|
# Save the tidy-ed data ---- |
|
|
saveRDS(file = "Data/tidy.rds") |
|
|
saveRDS(file = "Data/tidy.rds") |