You wrote
# create the plots directory if it does not exist
but then created a directory named outdir/plots/typ_Sys.time.tif
You need to rewrite the code like:
plotsdir <- file.path(outdir, "plots")
fp <- file.path(plotsdir, paste(typ, "_",
stringr::str_replace_all(Sys.time(), "[^a-zA-Z0-9]", ""),
".tif", sep = ""))
# Create the "plots" directory if it doesn't exist
if (!dir.exists(plotsdir)) {
dir.create(plotsdir, recursive = TRUE)
}
On Mon, Oct 9, 2023, 15:49 Keshav, Krishna <kkes...@ufl.edu> wrote:
> Hi,
>
> I am developing an R package where I need to save Raster file with .tif
> extension to the tempdir(). I am using terra::writeRaster for the same.
> While it works through R CMD check in mac, it is failing in R hub builder.
> Snippet ¡V
> .saverast <- function(typ, rast, outdir) {
>
> if (is.null(outdir) || length(outdir) == 0) {
> outdir <- tempdir()
> }
>
> # Save the plot as a raster file
> fp <- file.path(outdir, paste("plots", "/",
> typ, "_",
> stringr::str_replace_all(Sys.time(),
> "[^a-zA-Z0-9]", ""),
> ".tif", sep = ""))
> # Create the "plots" directory if it doesn't exist
> if (!dir.exists(fp)) {
> dir.create(fp, recursive = TRUE)
> }
>
> terra::writeRaster(rast, overwrite = TRUE,
> filename = fp,
> gdal = c("COMPRESS=NONE"))
> message(paste("raster created", fp, sep = ": "), "\n")
> }
>
> Error ¡V
>
> Error: [writeRaster] cannot write file
> 12. ¢|¢wgeohabnet:::.saverast(typ, rast, outdir)
> 13. ¢u¢wterra::writeRaster(rast, overwrite = TRUE, filename =
> fp, gdal = c("COMPRESS=NONE"))
> 14. ¢|¢wterra::writeRaster(rast, overwrite = TRUE, filename =
> fp, gdal = c("COMPRESS=NONE"))
> 15. ¢|¢wterra (local) .local(x, filename, ...)
> 16. ¢|¢wterra:::messages(x, "writeRaster")
> 17. ¢|¢wterra:::error(f, x@pnt$getError())
>
>
>
> Best Regards,
> Krishna Keshav
>
> [[alternative HTML version deleted]]
>
> ______________________________________________
> R-package-devel@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-package-devel
>
[[alternative HTML version deleted]]
______________________________________________
R-package-devel@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-package-devel
