st_coordinates()
sf
inla()
ggplot() + geom_sf(data = map, fill = "grey30") + geom_sf(data = d, colour = "pink", shape = 21) + coord_sf(datum = projUTM) + theme_linedraw()