R/get_sncf.R

In ClemMap/formationPackage: Style Cnam

#' @title scrap sncf
#'
#' @description récupère des données sur le site sncf.com
#'
#' @param dataset a character
#'
#' @return a json document\code{data.frame}
#'
#' @export
#' @importFrom crul HttpClient
#' @importFrom jsonlite fromJSON
#'
#' @examples
#' \dontrun{
#'   get_sncf("ponctualite-mensuelle-transilien")
#' }
#'
get_sncf <- function(dataset = "ponctualite-mensuelle-transilien") {
  cli <- HttpClient$new(
    url = "https://ressources.data.sncf.com/api/records/1.0/search/"
  )
  res <- cli$get(query = list(rows = -1, dataset = dataset))
  res$raise_for_status()
  txt <- res$parse("UTF-8")
  json <- fromJSON(txt)
  return(json$records)
}