Partial fix for yonghah#41: Add special check for proper encoding of …

…a URL in esriUrlValidType if an 'Invalid URL' message is returned by the server.
jacpete · Jan 12, 2022 · f914d68 · f914d68
1 parent 202f5b8
commit f914d68
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/R/esriUrl.R b/R/esriUrl.R
@@ -18,6 +18,12 @@ esriUrl_isValidType <- function(url, type = c(NA_character_, "Root", "Folder", "
   } else if (!is.na(rvest::html_element(rvest::read_html(url), 'div.restErrors'))) {
     reason <- sub("^[[:space:]]*", "", rvest::html_text(rvest::html_element(rvest::read_html(url), 'div.restErrors')))
     out <- FALSE
+    if (reason == "Invalid URL") {
+      url_encoded <- utils::URLencode(url)
+      if (is.na(rvest::html_element(rvest::read_html(url_encoded), 'div.restErrors'))) {
+        reason <- "Invalid URL: Check encoding of supplied URL."
+      }
+    }
   } else {
     out <- TRUE
   }