grid1km$cool.mixed.forest <- biome1km$predictions[,
which(attr(biome1km$predictions, "dimnames")[[2]] == "cool.mixed.forest")]
library(devtools)
# install_github("envirometrix/plotKML", force = TRUE)
# install_github("envirometrix/plotKML", ref = "stars")
# install.packages("plotKML")
library(terra)
library(plotKML)
plotKML(grid1km["cool.mixed.forest"],
file.name = "Biome00k_M_cool.mixed.forest_T9998.kml",
folder.name = "cool.mixed.forest",
raster_name = "Biome00k_M_cool.mixed.forest_T9998.png",
colour_scale=SAGA_pal[[10]])