# NOT RUN {
##- required packages
require(uavRst)
setwd(tempdir())
##- set locale
tmp<-Sys.setlocale('LC_ALL','C')
##- get some typical data as provided by the authority
utils::download.file(url="http://www.ldbv.bayern.de/file/zip/5619/DOP%2040_CIR.zip",
destfile="testdata.zip")
unzip("testdata.zip",junkpaths = TRUE,overwrite = TRUE)
##- original color space
raster::plotRGB(raster::stack("4490600_5321400.tif"))
##- change colorspace from RGB to HSI
r2 <- colorspace(input="4490600_5321400.tif",colorspace="HSI")
##- visualize it
raster::plotRGB(r2)
##- reset locale
tmp<-Sys.setlocale(category = "LC_ALL", locale = "de_DE.-8")
##+
# }
Run the code above in your browser using DataLab