More conditioning

jeroen · Dec 23, 2024 · db98d08 · db98d08
1 parent 9b25cf7
commit db98d08
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/parser.R b/R/parser.R
@@ -69,7 +69,7 @@ curl_parse_url <- function(url, baseurl = NULL, decode = TRUE, params = TRUE){
   baseurl < as.character(baseurl)
 
   # Workaround for #366
-  if(substr(url, 1, 1) == '#' && (compareVersion(curl_version()$version, "8.8.0") < 0)){
+  if(length(baseurl) && substr(url, 1, 1) == '#' && (compareVersion(curl_version()$version, "8.8.0") < 0)){
     url <- sub('(#.*)?$', url, baseurl)
   }