getStationPaquet <- function(
  id_station,
  format = "csv",
  headers,
  endpoint = paste0(dpPaquetObs, "infrahoraire-6m")
) {
  url_with_params <- httr::modify_url(
    base,
    path = endpoint,
    query = list(id_station = id_station, format = format)
  )

  response <- request_api(
    url_with_params = url_with_params,
    headers = headers,
    code = 200,
    retry_limit = 3,
    timesleep = 5
  )

  if (is.null(response)) {
    return(NULL)
  }

  read.csv(
    text = httr::content(response, "text", encoding = "UTF-8"),
    sep = ";",
    header = TRUE,
    stringsAsFactors = FALSE
  )
}