# Define product names
examplenames <- c(
system.file("tif/L7_ETMs.tif", package="stars"),
system.file("extdata/out/S2A2A_20190723_022_Barbellino_BOA_10.tif",
package = "sen2r")
)
# \donttest{
# Return metadata as data.table
raster_metadata(examplenames)
# }
# 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 DataLab