GDAL colour table warnings in test-save.R

[achubaty]

In attempting to address problems in saveSimList(), I am hitting multiple warnings emitted from GDAL.

══ Warnings ════════════════════════════════════════════════════════════════════
── Warning ('test-save.R:316:3'): saveSimList with file backed objs ────────────
GDAL Error 6: /tmp/RtmpiATGsS/working_dir/Rtmph2K7Sm/reproducible/nKIe15aZ/file3961b4486b8363/0VMmKi67/file3961b419e323f5.tif, band 1: SetColorTable() only supported for Byte or UInt16 bands in TIFF format.
Backtrace:
    ▆
 1. └─base::Map(...) at test-save.R:316:2
 2.   └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
 3.     └─SpaDES.core (local) `<fn>`(nam = dots[[1L]][[4L]], i = dots[[2L]][[4L]])
 4.       ├─terra::writeRaster(mySim$landscape[[nam]], tmpfile[i + 1], datatype = "FLT4S") at test-save.R:316:68
 5.       └─terra::writeRaster(mySim$landscape[[nam]], tmpfile[i + 1], datatype = "FLT4S")
 6.         └─terra (local) .local(x, filename, ...)
 7.           └─x@pnt$writeRaster(opt)
── Warning ('test-save.R:316:3'): saveSimList with file backed objs ────────────
[writeRaster] change datatype to INT1U to write the color-table
could not write the color table
Backtrace:
    ▆
 1. └─base::Map(...) at test-save.R:316:2
 2.   └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
 3.     └─SpaDES.core (local) `<fn>`(nam = dots[[1L]][[4L]], i = dots[[2L]][[4L]])
 4.       ├─terra::writeRaster(mySim$landscape[[nam]], tmpfile[i + 1], datatype = "FLT4S") at test-save.R:316:68
 5.       └─terra::writeRaster(mySim$landscape[[nam]], tmpfile[i + 1], datatype = "FLT4S")
 6.         └─terra (local) .local(x, filename, ...)
 7.           └─terra:::messages(x, "writeRaster")
 8.             └─terra:::warn(f, paste(unique(x@pnt$getWarnings()), collapse = "\n"))
── Warning ('test-save.R:316:3'): saveSimList with file backed objs ────────────
GDAL Error 6: /tmp/RtmpiATGsS/working_dir/Rtmph2K7Sm/reproducible/nKIe15aZ/file3961b4486b8363/file3961b435b4e9ae.tif, band 1: SetColorTable() only supported for Byte or UInt16 bands in TIFF format.
Backtrace:
    ▆
 1. └─base::Map(...) at test-save.R:316:2
 2.   └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
 3.     └─SpaDES.core (local) `<fn>`(nam = dots[[1L]][[4L]], i = dots[[2L]][[4L]])
 4.       ├─terra::writeRaster(mySim$landscape[[nam]], tmpfile[i + 1], datatype = "FLT4S") at test-save.R:316:68
 5.       └─terra::writeRaster(mySim$landscape[[nam]], tmpfile[i + 1], datatype = "FLT4S")
 6.         └─terra (local) .local(x, filename, ...)
 7.           └─x@pnt$writeRaster(opt)
── Warning ('test-save.R:316:3'): saveSimList with file backed objs ────────────
[writeRaster] change datatype to INT1U to write the color-table
could not write the color table
Backtrace:
    ▆
 1. └─base::Map(...) at test-save.R:316:2
 2.   └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
 3.     └─SpaDES.core (local) `<fn>`(nam = dots[[1L]][[4L]], i = dots[[2L]][[4L]])
 4.       ├─terra::writeRaster(mySim$landscape[[nam]], tmpfile[i + 1], datatype = "FLT4S") at test-save.R:316:68
 5.       └─terra::writeRaster(mySim$landscape[[nam]], tmpfile[i + 1], datatype = "FLT4S")
 6.         └─terra (local) .local(x, filename, ...)
 7.           └─terra:::messages(x, "writeRaster")
 8.             └─terra:::warn(f, paste(unique(x@pnt$getWarnings()), collapse = "\n"))
── Warning ('test-save.R:316:3'): saveSimList with file backed objs ────────────
GDAL Error 6: /tmp/RtmpiATGsS/working_dir/Rtmph2K7Sm/reproducible/nKIe15aZ/file3961b4486b8363/file3961b44891dc7b.tif, band 1: SetColorTable() only supported for Byte or UInt16 bands in TIFF format.
Backtrace:
    ▆
 1. └─base::Map(...) at test-save.R:316:2
 2.   └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
 3.     └─SpaDES.core (local) `<fn>`(nam = dots[[1L]][[4L]], i = dots[[2L]][[4L]])
 4.       ├─terra::writeRaster(mySim$landscape[[nam]], tmpfile[i + 1], datatype = "FLT4S") at test-save.R:316:68
 5.       └─terra::writeRaster(mySim$landscape[[nam]], tmpfile[i + 1], datatype = "FLT4S")
 6.         └─terra (local) .local(x, filename, ...)
 7.           └─x@pnt$writeRaster(opt)
── Warning ('test-save.R:316:3'): saveSimList with file backed objs ────────────
[writeRaster] change datatype to INT1U to write the color-table
could not write the color table
Backtrace:
    ▆
 1. └─base::Map(...) at test-save.R:316:2
 2.   └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
 3.     └─SpaDES.core (local) `<fn>`(nam = dots[[1L]][[4L]], i = dots[[2L]][[4L]])
 4.       ├─terra::writeRaster(mySim$landscape[[nam]], tmpfile[i + 1], datatype = "FLT4S") at test-save.R:316:68
 5.       └─terra::writeRaster(mySim$landscape[[nam]], tmpfile[i + 1], datatype = "FLT4S")
 6.         └─terra (local) .local(x, filename, ...)
 7.           └─terra:::messages(x, "writeRaster")
 8.             └─terra:::warn(f, paste(unique(x@pnt$getWarnings()), collapse = "\n"))

d> sf::sf_extSoftVersion()
          GEOS           GDAL         proj.4 GDAL_with_GEOS     USE_PROJ_H           PROJ 
      "3.10.2"        "3.4.3"        "8.2.0"         "true"         "true"        "8.2.0" 

Additionally, none of these tests appear to be cleaning up after themselves. At the very least, working directories need to be reset and tempfiles deleted.