Skip to content

Instantly share code, notes, and snippets.

@kanishkamisra

kanishkamisra/week10_tidying.R

Created June 5, 2018 02:22
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save kanishkamisra/497c1e41125c6b18e25beb2a7475a119 to your computer and use it in GitHub Desktop.
Save kanishkamisra/497c1e41125c6b18e25beb2a7475a119 to your computer and use it in GitHub Desktop.
Download ZIP
TidyTuesday Week10 data fix script
Raw
week10_tidying.R
library(tidyverse)
bikeshare <- dir(path = "PublicTripData/", pattern = "*.csv") %>%
map(~read.csv(file.path("PublicTripData", .))) %>%
reduce(bind_rows) %>%
as_tibble()
write_csv(bikeshare, "week10_biketown_tidy.csv")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment