R: Examples for 'sfheaders::sf

### ** Examples


x <- cbind(x = 1:2, y = 3:4, multipoint_id = 1, ncol = 2 )
sf_mpt( x )

  multipoint_id   geometry
1             1 1, 2, 3, 4

x <- data.frame( id = 1:2, x = 1:2, y = 2:1, multipoint_id = 1)
sf_mpt( x )

  multipoint_id   geometry
1             1 1, 2, 2, 1

sf_mpt( x, keep = TRUE)

  multipoint_id multipoint_id   geometry
1             1             1 1, 2, 2, 1

x <- data.frame(multipoint_id = 1:2, id = 1:2, x = 1:2, y = 2:1 )
(sfx <- sf_mpt(x))

  multipoint_id geometry
1             1     1, 2
2             2     2, 1

## we trivially round-trip with sf_mpt()
sf_mpt(sf_to_df(sfx))

  multipoint_id geometry
1             1     1, 2
2             2     2, 1

Examples for 'sfheaders::sf_mpt'