R/read_trips_data_oslow.R

In bysykkel: Get City Bike Data from Norway

read_trips_data_oslow <- function(year, month) {

  base_url <- "http://data.urbansharing.com/oslovintersykkel.no/trips/v1"
  dl_url <- glue::glue("{base_url}/{year}/{sprintf('%0.2d', month)}.csv")

  if (httr::http_error(dl_url)) stop("The download URL is invalid.")

  bike_df <- read.csv(file = dl_url,
                      header = TRUE,
                      stringsAsFactors = FALSE,
                      check.names = FALSE,
                      encoding = "UTF-8")

  bike_df <- tibble::as_tibble(bike_df)

}