data-raw/2-process_data.R

In jrosen48/railtrails: Data for Trails in the United States from the Rails-to-Trails Conservancy

# library(readr)
# library(purrr)
# library(stringr)
# library(dplyr)
#
# railtrails <- map_df(list.files("data-raw/rds_files", full.names = TRUE), read_rds, .id = "state")
#
# # this is a clunky way of adding the state to the data for all of the states, and there is probably a better way using purrr::map2_df()
# state_names <- list.files("data-raw/rds_files") %>%
#   str_sub(end = -5L) %>%
#   toupper()
#
# state_names_df <- data_frame(
#   state = seq(state_names),
#   state_name = state_names
# )
#
# state_names_df <- mutate(state_names_df, state = as.character(state))
#
# railtrails <- left_join(railtrails, state_names_df, by = "state")
#
# railtrails <- select(railtrails, state = state_name, everything(), -state)
#
# railtrails <- mutate(
#   railtrails,
#   name = str_sub(name, end = -7L),
#   distance = str_sub(distance, end = -7L),
#   distance = as.numeric(distance)
# )
#
#
# collapse_integers <- function(x) {
#   paste(x, collapse = "")
# }
#
# d$n_reviews <- str_extract_all(d$n_reviews, "[:digit:]") %>%
#   map_chr(collapse_integers) %>%
#   as.integer() %>%
#   sum()
#
# railtrails <- d %>% distinct(state, name, .keep_all = TRUE)
# railtrails$description <- stringr::str_trim(railtrails$description)
# devtools::use_data(railtrails, overwrite = T)