# NOT RUN {
# create image collection from example Landsat data only
# if not already done in other examples
if (!file.exists(file.path(tempdir(), "L8.db"))) {
L8_files <- list.files(system.file("L8NY18", package = "gdalcubes"),
".TIF", recursive = TRUE, full.names = TRUE)
create_image_collection(L8_files, "L8_L1TP", file.path(tempdir(), "L8.db"))
}
L8.col = image_collection(file.path(tempdir(), "L8.db"))
L8.col
# }
# NOT RUN {
if ("COG" %in% gdalcubes_gdalformats()) {
L8.cog.col = translate_cog(L8.col)
L8.cog.col
}
# }
Run the code above in your browser using DataLab