# NOT RUN {
a <- 1
.prepareOutput(a) # does nothing
b <- "Null"
.prepareOutput(b) # converts to NULL
library(raster)
r <- raster(extent(0,10,0,10), vals = 1:100)
# write to disk manually -- will be in tempdir()
r <- writeRaster(r, file = tempfile())
# copy it to the cache repository
r <- .prepareOutput(r, tempdir())
# }
Run the code above in your browser using DataLab