Message-ID: <SJ0PR22MB24481761E7E11DA70C3EF6D9B6CEA@SJ0PR22MB2448.namprd22.prod.outlook.com>
Date: 2023-10-09T22:56:50Z
From: Keshav, Krishna
Subject: [R-pkg-devel] Error: [writeRaster] cannot write file
In-Reply-To: <dbf689a4-b301-4aeb-9ba4-71ca1a36b95e@gmail.com>
Outdir is either a directory like getwd(), tempdir() etc or empty/null. If it is empty/null, then I set it to tempdir().
if (is.null(outdir) || length(outdir) == 0) {
outdir <- tempdir()
}
I am not sure how to debug when running it in Rbuilder. But you can look at results here - https://builder.r-hub.io/status/geohabnet_1.0.0.tar.gz-a2eaa40ccf1d026bbebf5077bfb482d5
Best Regards,
Krishna Keshav
From: Duncan Murdoch <murdoch.duncan at gmail.com>
Date: Monday, October 9, 2023 at 4:08 PM
To: Keshav, Krishna <kkeshav at ufl.edu>, r-package-devel at r-project.org <r-package-devel at r-project.org>
Subject: Re: [R-pkg-devel] Error: [writeRaster] cannot write file
[External Email]
What were you using as "outdir"?
On 09/10/2023 2:59 p.m., Keshav, Krishna 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 at pnt$getError())
>
>
>
> Best Regards,
> Krishna Keshav
>
> [[alternative HTML version deleted]]
>
>
> ______________________________________________
> R-package-devel at r-project.org mailing list
> https://nam10.safelinks.protection.outlook.com/?url=https%3A%2F%2Fstat.ethz.ch%2Fmailman%2Flistinfo%2Fr-package-devel&data=05%7C01%7Ckkeshav%40ufl.edu%7Cddd83781762040d664dc08dbc9038ec7%7C0d4da0f84a314d76ace60a62331e1b84%7C0%7C0%7C638324789348072931%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=mBzV%2BSJoOTTnSpRzu0EvLT8sZ2NJ1OlhSGXqNCvGWB4%3D&reserved=0<https://stat.ethz.ch/mailman/listinfo/r-package-devel>
[[alternative HTML version deleted]]