R/data.R

In unimi-dse/10e974e5: Analysis of road accidents

#' Acquisition of Data
#'
#' @description Get the dataset from the Opendata website of the Lombardy region.
#'
#' @return data.frame
#' @examples
#' data <- getDataset()
#' @export
getDataset <- function(){
  data <- jsonlite::fromJSON("https://www.dati.lombardia.it/resource/kfsx-gizw.json")
  data$anno_incidente <- as.numeric(data$anno_incidente)
  data$numero_incidenti <- as.numeric(data$numero_incidenti)
  data$totale_morti <- as.numeric(data$totale_morti)
  data$totale_feriti <- as.numeric(data$totale_feriti)
  return(data)
}