# NOT RUN {
# Define product names
examplenames <- c(
system.file("tif/L7_ETMs.tif", package="stars"),
system.file("nc/bcsd_obs_1999.nc", package = "stars"),
system.file("extdata/out/S2A2A_20170703_022_Barbellino_BOA_10.tif",
package = "sen2r")
)
# }
# NOT RUN {
# Return metadata as data.table
raster_metadata(examplenames)
# }
# NOT RUN {
# Return some metadata as data.table
raster_metadata(examplenames, c("res", "size", "bbox", "outformat"))
# Return some metadata as list
raster_metadata(examplenames, c("res", "size", "bbox", "proj"), format = "list")
# Output with an invalid raster
examplenames <- c(
examplenames,
system.file("extdata/settings/gdal_formats.json", package="sen2r")
)
raster_metadata(examplenames, c("bbox", "proj"))
# }
Run the code above in your browser using DataCamp Workspace