if (FALSE) {
input <- rlogo
## Create filename
file <- paste0(tempdir(), "/test", runif(1))
## Run PCA
rpc <- rasterPCA(input, nSample = 100)
## Save object
saveRSTBX(rpc, filename=file)
## Which files were written?
list.files(tempdir(), pattern = basename(file))
## Re-read files
re_rpc <- readRSTBX(file)
## Remove files
file.remove(list.files(tempdir(), pattern = basename(file), full = TRUE))
}
Run the code above in your browser using DataLab