data-raw/radars.R

In jean-seb-2106/statb6: Documentation et données du parcours statistique des B6

## code to prepare `radars` dataset goes here

library(readr)
library(lubridate)

#Fichier des radars fixes
radars_fixes <- read_delim("data-raw/radars/bilan-2017-radars-fixes.csv",delim =  ","
                 , escape_double = FALSE, locale = locale(encoding = "UTF-8"),
                  trim_ws = TRUE, skip = 0) %>%
                mutate(type_radar = "fixe")

#Fichier des radars discriminants
radars_discriminants <- read_delim("data-raw/radars/bilan-2017-radars-discriminants.csv",delim =  ","
                                   , escape_double = FALSE, locale = locale(encoding = "UTF-8"),
                                   trim_ws = TRUE, skip = 0) %>%
  mutate(type_radar = "discriminants")

#Fichier des radars tronçons
radars_troncons <- read_delim("data-raw/radars/bilan-2017-radars-troncons.csv",delim =  ","
                                   , escape_double = FALSE, locale = locale(encoding = "UTF-8"),
                                   trim_ws = TRUE, skip = 0) %>%
  mutate(type_radar = "troncons")

radars <- rbind(radars_fixes,radars_discriminants) %>%
  rbind(radars_troncons)

#Modification du fichier radar
radars <- radars %>%
  mutate(`Date de mise en service` = as.Date(`Date de mise en service`,format="%d/%m/%Y"),
         Anciennete = 2021 - year(`Date de mise en service`))

usethis::use_data(radars, overwrite = TRUE)