data-raw/parametres_transfo_geom.R

In ARCEP-dev/cartoutremer: Faliciter la cartographie les territoires de la France d'outre-mer

## code to prepare `parametres_transfo_geom` dataset goes here

library(tibble)

param_transfo_om <- tribble(
  ~ DEP, ~ rotation,  ~ echelle,  ~ shift_x, ~ shift_y, ~type_rapp,
  "971",  0.507, 2.032, -610000,5668000, "v1",
  "972",  0.505, 2.48, -381000, 5687000, "v1",
  "973",  0.5075, 0.675, -620000,5358000, "v1",
  "974",  0.506, 2.142, -379800, 5505700,"v1",
  "975",  0.506, 1.95, -654900, 5990700,"v1",
  "976",  0.506, 1.935, -324200, 5382000,"v1",
  "977",  0.507, 6.85, -526000 , 5883900,"v1",
  "978",  0.508, 6.15, -654900,5869000,"v1",
  "986",  0.506, 0.68,  -529800,5253700,"v1",
  "987",  0.506, 0.106,  -559800,5003700,"v1",
  "988",  0.506, 0.38,  -239800,5093700,"v1"
)

# export
usethis::use_data(param_transfo_om, overwrite = TRUE)