Catch and report symlink failures when cloning a version.

ArtifactDB · Apr 23, 2024 · 78b782b · 78b782b
1 parent cdce195
commit 78b782b
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/cloneVersion.R b/R/cloneVersion.R
@@ -60,7 +60,10 @@ cloneVersion <- function(project, asset, version, destination, registry) {
     for (x in names(listing)) {
         dpath <- file.path(destination, x)
         dir.create(dirname(dpath), showWarnings=FALSE)
-        file.symlink(file.path(target, x), dpath)
+        src <- file.path(target, x)
+        if (!file.symlink(src, dpath)) {
+            stop("failed to create a symlink from '", src, "' to '", dpath, "'")
+        }
     }
 
     invisible(NULL)