testFUN <-
function(x, tempname) {
## example function for processTiles()
# the function to be used in processTiles
# must accept a SGDF x and a base tempname,
# and may accept other arguments
# it must return the name or vector of names of the tempfiles created
# although this can be the same as the tempname passed to it as an argument
#
# sets all data values to 1
x <- readRAST6("gssurgo")
x@data[!is.na(x@data[,1]),1] <- 1
writeRAST6(x, tempname)
tempname
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.