Nothing
#' Read TIF file with classes
#'
#' @param file file
#' @param n number of classes
#'
#' @return array
#' @export
readClassTIF<-function(file,n=7)
{
temp<-readTIF(file=file,native=FALSE,as.is=FALSE,channels=NULL)
temp<-temp*n
temp<-round(temp,0)
temp[temp==0]<-NA
return(temp)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.