R/ticket_vending_machines.R

In lwawrowski/openPoznan: Download open data from Poznan

#' ticket_vending_machines Function
#'
#' This function download data about ticket vending machines in Poznań
#' @keywords keyword
#' @export
#' @importFrom jsonlite fromJSON 
#'@importFrom textclean replace_html
#' @format 
#' \describe{
#' \item{ID}{factor; ID of TVM.}
#' \item{TVM}{factor; Name of TVM.}
#' \item{PEKA}{factor; Shows if TVM accepts PEKA card.}
#' \item{Store_Card}{factor; Shows if TVM accepts store card.}
#' \item{TVM_Order}{factor; Order of TVM.}
#' \item{TVM_Description }{factor; Description where you can find this TVM..}
#' \item{Longitude}{numeric; Longitude of TVM.}
#' \item{Latitude}{numeric; Latitude of TVM.}
#' }
#' @examples
#' 
#' tvms <- ticket_vending_machines()
#' 
#' 
#' 

ticket_vending_machines <- function () {
  
  #Biletomaty Calosc 
  
  #Wstepna analiza
  
  if(have_ip() == T) {
    
    tryCatch({
      
      TVM_blank <- fromJSON("http://www.poznan.pl/mim/plan/map_service.html?mtype=pub_transport&co=class_objects&class_id=4000")
      
    },error = function(e) {
      warning("You used bad link!")
    })
    
  } else {
    warning("You lost connection to internet!")
  }
  
  TVM_features <- TVM_blank$features
  
  # Utworzenie koordynatow + nazwanie 
  
  TVM_coord <- data.frame(matrix(unlist(TVM_features$geometry$coordinates),
                                 nrow = nrow(TVM_features),
                                 byrow = T))
  
  colnames(TVM_coord) <- c("Longitude",
                           "Latitude")
  
  
  #Oczyszczenie danych z niepotrzebnych informacji + nazwanie 
  
  TVM_basic_info <- data.frame(cbind(TVM_features$id,
                                     TVM_features$properties$nazwa,
                                     TVM_features$properties$y_4345_obs_uga_syste,
                                     TVM_features$properties$y_4346_karty_p_atnic,
                                     TVM_features$properties$kolejnosc,
                                     TVM_features$properties$opis))
  
  colnames(TVM_basic_info)<- c("ID",
                               "TVM",
                               "PEKA",
                               "Store_Card",
                               "TVM_Order",
                               "TVM_Description")
  
  TVM_basic_info$TVM_Description <- replace_html(TVM_basic_info$TVM_Description, symbol = FALSE)
  
  # Ostateczne polaczenie 
  
  TVM_final <- cbind(TVM_basic_info,TVM_coord)
  
  return(TVM_final)
  
}


#examples