stop when rename of annotated DESCRIPTION fails

rstudio · Jan 2, 2024 · 5456d3e · 5456d3e
1 parent 51dd9d6
commit 5456d3e
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/restore.R b/R/restore.R
@@ -394,7 +394,9 @@ annotatePkgDesc <- function(pkgRecord, project, lib = libDir(project)) {
   # Write it out using a temporary file so DESCRIPTION is never partial.
   tmpf <- tempfile(tmpdir = dirname(descFile))
   write_dcf(content, tmpf)
-  file.rename(tmpf, descFile)
+  if (!file.rename(tmpf, descFile)) {
+    stop("Unable to rename annotated package DESCRIPTION")
+  }
 }
 
 # Takes a vector of package names, and returns a logical vector that indicates