Issue 53043: labkey.webdav.downloadFolder to account for contextPath in file href paths (#117)

Rlabkey v3.4.3 has been published to CRAN

Author: cnathe

Rlabkey/DESCRIPTION

@@ -1,6 +1,6 @@
 Package: Rlabkey
 Version: 3.4.3
-Date: 2025-03-21
+Date: 2025-05-12
 Title: Data Exchange Between R and 'LabKey' Server
 Authors@R: c(person(given = "Peter",
                     family = "Hussey",

Rlabkey/NEWS

@@ -1,6 +1,7 @@
 Changes in 3.4.3
   o Bugfix to labkey.selectRows when group_concat based field has a NULL value. Related to github issue #112
   o Update documentation for experiment.createRun to include an example of inserting run level properties
+  o Issue 53043: labkey.webdav.downloadFolder to account for contextPath in file href paths
 
 Changes in 3.4.2
   o Add showProgressBar parameter to labkey.webdav.downloadFolder and labkey.webdav.get

Rlabkey/R/labkey.webdav.R

@@ -295,8 +295,15 @@ labkey.webdav.doDownloadFolder <- function(localDir, baseUrl=NULL, folderPath, r
 
     files <- labkey.webdav.listDir(baseUrl=baseUrl, folderPath=folderPath, fileSet=fileSet, remoteFilePath=remoteFilePath)
     for (file in files[["files"]]) {
-      relativeToRemoteRoot <- sub(prefix, "", file[["href"]])
-      relativeToDownloadStart <- sub(paste0(prefix, remoteFilePath), "", file[["href"]])
+      # Issue 53043: the files list href includes the server contextPath, so trim that if available
+      fileHref <- file[["href"]]
+      prefixIndex <- regexpr(prefix, fileHref)
+      if (prefixIndex > -1) {
+        fileHref <- substr(fileHref, prefixIndex, nchar(fileHref))
+      }
+
+      relativeToRemoteRoot <- sub(prefix, "", fileHref)
+      relativeToDownloadStart <- sub(paste0(prefix, remoteFilePath), "", fileHref)
 
       localPath <- file.path(localDir, relativeToDownloadStart)
       if (file[["isdirectory"]]) {
@@ -319,7 +326,7 @@ labkey.webdav.doDownloadFolder <- function(localDir, baseUrl=NULL, folderPath, r
 
         labkey.webdav.doDownloadFolder(localDir=localPath, baseUrl=baseUrl, folderPath=folderPath, fileSet=fileSet, remoteFilePath=relativeToRemoteRoot, overwriteFiles=overwriteFiles, mergeFolders=mergeFolders, showProgressBar=showProgressBar)
       } else {
-          url <- paste0(baseUrl, trimLeadingPath(file[["href"]]))
+          url <- paste0(baseUrl, trimLeadingPath(fileHref))
 
           logMessage(paste0("Downloading file: ", relativeToRemoteRoot))
           logMessage(paste0("to: ", localPath))

Rlabkey/man/Rlabkey-package.Rd

@@ -19,7 +19,7 @@ schema objects (\code{labkey.getSchema}).
 Package: \tab Rlabkey\cr
 Type: \tab Package\cr
 Version: \tab 3.4.2\cr
-Date: \tab 2025-03-12\cr
+Date: \tab 2025-05-12\cr
 License: \tab Apache License 2.0\cr
 LazyLoad: \tab yes\cr
 }