add 'overwrite = T' to all fs::dir_copy calls

GH runners are failing in trying to copy a single .Rbuildignore file,
but I can't repeat that failure anywhere ...

Author: mpadge

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: orgmetrics
 Title: Metrics for Your GitHub Organization
-Version: 0.1.2.092
+Version: 0.1.2.093
 Authors@R: 
     person("Mark", "Padgham", , "[email protected]", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-2172-5265"))

codemeta.json

@@ -8,7 +8,7 @@
   "codeRepository": "https://github.com/ropensci-review-tools/orgmetrics",
   "issueTracker": "https://github.com/ropensci-review-tools/orgmetrics/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "0.1.2.092",
+  "version": "0.1.2.093",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",

tests/testthat/helper-org-data.R

@@ -63,8 +63,16 @@ mock_collate_org_data <- function (end_date = Sys.Date ()) {
     if (!fs::dir_exists (org_dir)) {
         fs::dir_create (org_dir)
     }
-    path1 <- fs::dir_copy (path, fs::path (org_dir, "testpkg1"))
-    path2 <- fs::dir_copy (path, fs::path (org_dir, "testpkg2"))
+    path1 <- fs::dir_copy (
+        path,
+        fs::path (org_dir, "testpkg1"),
+        overwrite = TRUE
+    )
+    path2 <- fs::dir_copy (
+        path,
+        fs::path (org_dir, "testpkg2"),
+        overwrite = TRUE
+    )
     fs::dir_delete (path)
 
     d1 <- desc::desc_set ("Package" = "testpkg1", file = path1)

tests/testthat/test-fn-call-network.R

@@ -12,7 +12,11 @@ test_that ("function call network", {
     repos <- c ("orgmetrics", "repometrics")
     repos <- vapply (repos, function (repo) {
         tmp <- generate_test_pkg ()
-        path <- fs::dir_copy (tmp, fs::path (d, "ropensci-review-tools", repo))
+        path <- fs::dir_copy (
+            tmp,
+            fs::path (d, "ropensci-review-tools", repo),
+            overwrite = TRUE
+        )
         fs::path_rel (path, start = d)
     }, character (1L))
     pkgs <- data.frame (

tests/testthat/test-utils.R

@@ -35,7 +35,11 @@ test_that ("write pkgs_json", {
     repos <- c ("orgmetrics", "repometrics")
     repos <- vapply (repos, function (repo) {
         tmp <- generate_test_pkg ()
-        path <- fs::dir_copy (tmp, fs::path (d, "ropensci-review-tools", repo))
+        path <- fs::dir_copy (
+            tmp,
+            fs::path (d, "ropensci-review-tools", repo),
+            overwrite = TRUE
+        )
         fs::path_rel (path, start = d)
     }, character (1L))
     pkgs <- data.frame (
@@ -66,7 +70,11 @@ test_that ("clone gh org repos", {
     repos <- c ("orgmetrics", "repometrics")
     repos <- vapply (repos, function (repo) {
         tmp <- generate_test_pkg ()
-        path <- fs::dir_copy (tmp, fs::path (d, "ropensci-review-tools", repo))
+        path <- fs::dir_copy (
+            tmp,
+            fs::path (d, "ropensci-review-tools", repo),
+            overwrite = TRUE
+        )
         fs::path_rel (path, start = d)
     }, character (1L))
     pkgs <- data.frame (