R/getDocklessdata.R

In jchafetz/docklessapi: Dockless API

#' Pull, clean, and save dockless API data
#'
#' @param output_filepath folder directory where you want the file to save to; if NULL, will just be stored in R
#'
#' @export
#' @importFrom dplyr %>%

getDocklessdata <- function(output_filepath = NULL){

    #Set the urls
    dockless_urls <-
        tibble::tribble(
            ~company,                                                                                  ~url,  ~layer,                            ~auth,
            "skip",          "https://us-central1-waybots-production.cloudfunctions.net/dcFreeBikeStatus", "bikes",                              NA,
            "spin",                      "https://web.spin.pm/api/gbfs/v1/washington_dc/free_bike_status", "data",                               NA,
            "bird",                                                             "https://gbfs.bird.co/dc", "data",                               NA,
            "jump",                          "https://dc.jumpmobility.com/opendata/free_bike_status.json", "data",                               NA,
            "lime",             "https://lime.bike/api/partners/v1/bikes?region=Washington%20DC%20Proper", "data", "Bearer limebike-PMc3qGEtAAXqJa",
            "lyft", "https://s3.amazonaws.com/lyft-lastmile-production-iad/lbs/dca/free_bike_status.json", "data",                               NA
        )

    #Pull the data
    df <- purrr::map2_dfr(.x = dockless_urls$company,
                          .y = dockless_urls$url,
                          .f = ~ executeAPI(.x, .y))

    #Timestamp new data and add it to data frame
    df$time <- lubridate::now()

    #Time stamp and export or return if no folder path is given
    if(!is.null(output_filepath)){
        time <- format(lubridate::now(), "%Y%m%d_%H%M%S_")
        readr::write_csv(df, file.path(output_filepath, paste0(time, "docklessbike_data_set.csv")), na = "")
    } else {
        return(df)
    }
}