URLencode() only the user name

KWB-R · Jul 16, 2024 · 8d24709 · 8d24709
1 parent 70bc792
commit 8d24709
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -124,8 +124,7 @@ path_to_file_href <- function(
 )
 {
   base_url <- webdav_base_url(leading_slash = leading_slash)
-  href <- file.path(base_url, "files", user, path)
-  utils::URLencode(href)
+  file.path(base_url, "files", utils::URLencode(user), path)
 }
 
 # rename_properties ------------------------------------------------------------