chore: clean up vendor dir after vendor_pkgs() (#454)

albersonmiranda · Ilia-Kosenkov · web-flow · commit 70966ead4f35 · 2025-08-16T11:17:56.000-04:00
* chore: clean up vendor dir after `vendor_pkgs()`

* chore: add exist condition

---------

Co-authored-by: Ilia Kosenkov &lt;ilia.kosenkov@outlook.com&gt;
diff --git a/R/cran-compliance.R b/R/cran-compliance.R
@@ -118,6 +118,12 @@ vendor_pkgs <- function(path = ".", quiet = FALSE, overwrite = NULL) {
     )
   }
 
+  # clean up vendor directory
+  if (dir.exists(file.path(src_dir, "vendor"))) {
+    cli::cli_alert_info("Removing {.path src/rust/vendor} directory")
+    unlink(file.path(src_dir, "vendor"), recursive = TRUE)
+  }
+
   # return packages and versions invisibly
   invisible(res)
 }

Original file line number	Diff line number	Diff line change
`@@ -118,6 +118,12 @@ vendor_pkgs <- function(path = ".", quiet = FALSE, overwrite = NULL) {`
`118`	`118`	`)`
`119`	`119`	`}`
`120`	`120`
	`121`	`+ # clean up vendor directory`
	`122`	`+ if (dir.exists(file.path(src_dir, "vendor"))) {`
	`123`	`+ cli::cli_alert_info("Removing {.path src/rust/vendor} directory")`
	`124`	`+ unlink(file.path(src_dir, "vendor"), recursive = TRUE)`
	`125`	`+ }`
	`126`	`+`
`121`	`127`	`# return packages and versions invisibly`
`122`	`128`	`invisible(res)`
`123`	`129`	`}`