# NOT RUN {
## Make sfc_MULTIPOINT
sfc <- sf::st_sfc(sf::st_multipoint(cbind(0,1)))
## Cast to BoostPoints
boostPoints <- boost(sfc)
## Unboost
sfc2 <- unboost(boostPoints)
print(identical(sfc, sfc2))
# }
Run the code above in your browser using DataLab