# NOT RUN {
## set aoi (example aoi)
data("aoi_data")
set_aoi(aoi_data[[1]])
# }
# NOT RUN {
## draw aoi interactively
set_aoi() # just call without an argument
## view aoi
view_aoi()
## return aoi
aoi <- get_aoi(type = "sf")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab