# NOT RUN {
inlmisc::PlotMap(labels, dms.tick = TRUE)
lab <- labels[labels$map == 1L, names(labels) != "map"]
for (i in seq_along(lab))
do.call(raster::text, c(lab[i, ], as.list(lab@data[i, ])))
str(labels@data)
# }
Run the code above in your browser using DataLab