add and test unvendor function

Author: pachadotdev

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: cpp11
 Title: A C++11 Interface for R's C Interface
-Version: 0.5.1.9000
+Version: 0.5.1.9001
 Authors@R:
     c(
       person("Davis", "Vaughan", email = "[email protected]", role = c("aut", "cre"), comment = c(ORCID = "0000-0003-4777-038X")),

NAMESPACE

@@ -4,4 +4,5 @@ export(cpp_eval)
 export(cpp_function)
 export(cpp_register)
 export(cpp_source)
+export(cpp_unvendor)
 export(cpp_vendor)

R/unvendor.R

@@ -0,0 +1,39 @@
+#' Unvendor the cpp11 dependency
+#'
+#' This function removes the vendored cpp11 headers from your package and
+#' restores the `LinkingTo: cpp11` field in the DESCRIPTION file if it was removed.
+#'
+#' @inheritParams cpp_register
+#' @return The file path to the unvendored code (invisibly).
+#' @export
+#' @examples
+#' # create a new directory
+#' dir <- tempfile()
+#' dir.create(dir)
+#'
+#' # vendor the cpp11 headers into the directory
+#' cpp_vendor(dir)
+#'
+#' # unvendor the cpp11 headers from the directory
+#' unvendor_cpp11(dir)
+#'
+#' list.files(file.path(dir, "inst", "include", "cpp11"))
+#'
+#' # cleanup
+#' unlink(dir, recursive = TRUE)
+cpp_unvendor <- function(path = ".") {
+  new <- file.path(path, "inst", "include", "cpp11")
+
+  if (!dir.exists(new)) {
+    stop("'", new, "' does not exist", call. = FALSE)
+  }
+
+  unlink(new, recursive = TRUE)
+
+  cpp11_hpp <- file.path(dirname(new), "cpp11.hpp")
+  if (file.exists(cpp11_hpp)) {
+    unlink(cpp11_hpp)
+  }
+
+  invisible(new)
+}

R/vendor.R

@@ -34,7 +34,8 @@ cpp_vendor <- function(path = ".") {
   new <- file.path(path, "inst", "include", "cpp11")
 
   if (dir.exists(new)) {
-    stop("'", new, "' already exists\n * run unlink('", new, "', recursive = TRUE)", call. = FALSE)
+    message("'", new, "' already exists, removing it")
+    cpp_unvendor(path)
   }
 
   dir.create(new , recursive = TRUE, showWarnings = FALSE)

man/cpp_unvendor.Rd

@@ -8,16 +8,6 @@ describe("cpp_vendor", {
     )
   })
 
-  it("errors if cpp11 is already vendored", {
-    pkg <- local_package()
-    cpp_vendor(pkg_path(pkg))
-
-    expect_error(
-      cpp_vendor(pkg_path(pkg)),
-      "already exists"
-    )
-  })
-
   it("vendors cpp11", {
     pkg <- local_package()
     p <- pkg_path(pkg)
@@ -27,5 +17,7 @@ describe("cpp_vendor", {
     expect_true(dir.exists(file.path(p, "inst", "include", "cpp11")))
     expect_true(file.exists(file.path(p, "inst", "include", "cpp11.hpp")))
     expect_true(file.exists(file.path(p, "inst", "include", "cpp11", "declarations.hpp")))
+
+    expect_silent(cpp_unvendor(pkg_path(pkg)))
   })
 })