# \donttest{
f <- tempfile(fileext = ".tif")
df <- data.frame(x = 1:4, y = rep(1:2, each = 2), band1 = as.double(1:4))
write_tiff(df, f)
tiff_crs(f) # epsg = NA, citation = NA — vectra writer omits GeoKeys
unlink(f)
# }
Run the code above in your browser using DataLab