R/read_bike.R

In muschellij2/jhur: Introduction to R

#' Read Bike Lanes data
#'
#' @param ... Additional arguments to pass to
#' \code{\link{read_csv}}
#'
#' @return A \code{tibble}
#' @export
#'
#' @examples
#' bike = read_bike()
read_bike = function(...) {
  fname = jhu_file("Bike_Lanes.csv")
  df = readr::read_csv(fname, ...)
  readr::stop_for_problems(df)
  return(df)
}

#' @rdname read_bike
#' @export
read_bike_wide = function(...) {
  fname = jhu_file("Bike_Lanes_Wide.csv")
  df = readr::read_csv(fname, ...)
  readr::stop_for_problems(df)
  return(df)
}