# \donttest{
f <- tempfile(fileext = ".tif")
df <- data.frame(x = rep(1:2, 2), y = rep(1:2, each = 2),
band1 = as.double(1:4), band2 = as.double(5:8))
xml <- paste0(
"",
"temperature",
"humidity",
"")
write_tiff(df, f, metadata = xml)
tiff_band_names(f)
unlink(f)
# }
Run the code above in your browser using DataLab