# NOT RUN {
require(uavRst)
require(link2GI)
setwd(tempdir())
## check if OTB exists
giLinks<-list()
giLinks$otb <- link2GI::linkOTB()
if (giLinks$otb$exist) {
data("pacman")
raster::writeRaster(pacman,"pacman.tif",overwrite=TRUE)
r<-otbtex_gray(input="pacman.tif",retRaster = TRUE)
##- visualize all layers
raster::plot(r[[1]])
}
# }
Run the code above in your browser using DataLab