fix repo cp when fn called 2nd time

Author: mpadge

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: githist
 Title: Code analyses traced along the 'git' history of a package
-Version: 0.1.0.025
+Version: 0.1.0.026
 Authors@R: 
     person("Mark", "Padgham", , "mark.padgham@email.com", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-2172-5265"))

R/githist-fn.R

@@ -27,9 +27,10 @@ githist <- function (path, n = NULL, step_size = 1L) {
         checkmate::assert_int (n, lower = 1L)
     }
 
-    path_cp <- path
+    path_cp <- fs::path (fs::path_temp (), basename (path))
     clean_after <- FALSE
-    if (fs::path (fs::path_dir (path)) != fs::path_temp ()) {
+    if (fs::path (fs::path_dir (path)) != fs::path_temp () &&
+        !fs::dir_exists (path_cp)) {
         path_cp <- fs::dir_copy (path, fs::path_temp ())
         clean_after <- TRUE
     }

codemeta.json

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