R/stop.R

In christianbitter/rOCologneKVB: Retrieves the KVB-provided open data

#'@author christian bitter
#'@name stops
#'@title KVB - Lift
#'@description Returns the Stop Information from the KVB Open Data Portal
#'@return an sf object of the provided data (EPSG 4326).
#'@param as_spatial should the data be returned as an sf object (default F)
#'@examples
#'stop_df <- stop()
#'@export
stop <- function(as_spatial = F) {
  url <- "https://data.webservice-kvb.koeln/service/opendata/haltestellen/json";

  json_content <- base_request(url = url, rq_type = "json");
  data_df <- json_content$features;
  data_df <- extract_geom(data_df);
  data_df <- extract_prop(data_df);

  .data   <- data_df;

  if (as_spatial) {
    epsg_code <- 4326;
    data_sf  <- sf::st_as_sf(.data, coords = c("x", "y"))
    sf::st_crs(data_sf) <- epsg_code;
    .data <- data_sf;
  }

  return(.data);
}