# NOT RUN {
##- libs
require(sp)
require(uavRst)
##- preset for digitizing uav flight areas in Meuse
require(sp)
data(meuse)
sp::coordinates(meuse) <- ~x+y
sp::proj4string(meuse) <-sp::CRS("+init=epsg:28992")
me<-sp::spTransform(meuse,CRSobj = sp::CRS("+init=epsg:4326"))
uavRst::digitize(overlay = me)
##- preset for digitizing extents
uavRst::digitize(preset="ext",overlay = me)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab