source_gpkg <- system.file("extdata", "clc.gpkg", package = "clc")
clo <- clc(source = source_gpkg, layer_name = "clc")
temp_file <- tempfile(fileext = ".png")
png(filename = temp_file, width = 800, height = 600)
clo |>
plot_clc()
dev.off()
Run the code above in your browser using DataLab