data-raw/lieu.R

In ngsanogo/corpoaccident: Base de données sur les accidents corporels de la circulation en France

## code to prepare `lieu` dataset goes here

library(conflicted)
library(data.table)
library(purrr)
library(dplyr)
library(lubridate)

lieu <- list.files("./data-raw/raw", pattern = "^lieux", full.names = TRUE) %>%
  map(fread, colClasses = "character", encoding = "UTF-8", na.strings = c("", "NA")) %>%
  bind_rows() %>%
  as_tibble() %>%
  set_names(tolower) %>%
  mutate(
    catr = case_when(
      catr %in% "1" ~ "Autoroute",
      catr %in% "2" ~ "Route Nationale",
      catr %in% "3" ~ "Route Départementale",
      catr %in% "4" ~ "Voie Communale",
      catr %in% "5" ~ "Hors réseau public",
      catr %in% "6" ~ "Parc de stationnement ouvert à la circulation publique",
      catr %in% "9" ~ "autre",
      TRUE ~ NA_character_
    ),
    circ = case_when(
      circ %in% "1" ~ "A sens unique",
      circ %in% "2" ~ "Bidirectionnelle",
      circ %in% "3" ~ "A chaussées séparées",
      circ %in% "4" ~ "Avec voies d’affectation variable",
      TRUE ~ NA_character_
    ),
    vosp = case_when(
      vosp %in% "1" ~ "Piste cyclable",
      vosp %in% "2" ~ "Banque cyclable",
      vosp %in% "3" ~ "Voie réservée",
      TRUE ~ NA_character_
    ),
    prof = case_when(
      prof %in% "1" ~ "Plat",
      prof %in% "2" ~ "Pente",
      prof %in% "3" ~ "Sommet de côte",
      prof %in% "4" ~ "Bas de côte",
      TRUE ~ NA_character_
    ),
    plan = case_when(
      plan %in% "1" ~ "Partie rectiligne",
      plan %in% "2" ~ "En courbe à gauche",
      plan %in% "3" ~ "En courbe à droite",
      plan %in% "4" ~ "En « S »",
      TRUE ~ NA_character_
    ),
    surf = case_when(
      surf %in% "1" ~ "normale",
      surf %in% "2" ~ "mouillée",
      surf %in% "3" ~ "flaques",
      surf %in% "4" ~ "inondée",
      surf %in% "5" ~ "enneigée",
      surf %in% "6" ~ "boue",
      surf %in% "7" ~ "verglacée",
      surf %in% "8" ~ "corps gras - huile",
      surf %in% "9" ~ "autre",
      TRUE ~ NA_character_
    ),
    infra = case_when(
      infra %in% "1" ~ "Souterrain - tunnel",
      infra %in% "2" ~ "Pont - autopont",
      infra %in% "3" ~ "Bretelle d’échangeur ou de raccordement",
      infra %in% "4" ~ "Voie ferrée",
      infra %in% "5" ~ "Carrefour aménagé",
      infra %in% "6" ~ "Zone piétonne",
      infra %in% "7" ~ "Zone de péage",
      TRUE ~ NA_character_
    ),
    situ = case_when(
      situ %in% "1" ~ "Sur chaussée",
      situ %in% "2" ~ "Sur bande d’arrêt d’urgence",
      situ %in% "3" ~ "Sur accotement",
      situ %in% "4" ~ "Sur trottoir",
      situ %in% "5" ~ "Sur piste cyclable",
      TRUE ~ NA_character_
    )
  )

usethis::use_data(lieu, overwrite = TRUE, compress = "bzip2", ascii = FALSE)