R/rive_ligne.R

In david-beauchesne/idlm-la_grave: Plan d'échantillonnage de La Grave aux Îles de la Madeleine

rive_ligne <- function() {

    # -----
    coords <- rbind(
      c(278955.7, 5233137),
      c(278935.6, 5233144),
      c(278918.0, 5233153),
      c(278898.3, 5233165),
      c(278879.4, 5233179),
      c(278864.9, 5233193),
      c(278848.7, 5233204),
      c(278826.1, 5233209),
      c(278805.5, 5233210),
      c(278776.1, 5233212),
      c(278748.0, 5233213),
      c(278716.8, 5233218),
      c(278686.5, 5233226),
      c(278654.8, 5233236),
      c(278623.3, 5233248),
      c(278592.7, 5233261),
      c(278561.5, 5233275),
      c(278530.9, 5233292),
      c(278514.3, 5233300),
      c(278479.6, 5233320),
      c(278447.2, 5233336),
      c(278411.1, 5233353),
      c(278390.9, 5233364),
      c(278373.4, 5233374)
    )

# -----
dat <- st_linestring(coords) %>%
       st_sfc(crs = 2946)

# -----
st_write(dat, "data/data-format/rive.geojson", quiet = TRUE, delete_dsn = TRUE)
}