# \donttest{
data(usa)
carto <- cartogramR(usa, "electors64")
LA <- sf::st_sfc(sf::st_point(c(-118.243685, 34.052234)))
sf::st_crs(LA) <- 4326
moregeom <- warp_features(LA, carto)
plot(carto)
plot(moregeom, add=TRUE, col=2, pch=15)
# }
Run the code above in your browser using DataLab