fixes #147

Chicago · Dec 5, 2017 · 7b9ae5f · 7b9ae5f
1 parent db5ecda
commit 7b9ae5f
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/R/RSocrata.R b/R/RSocrata.R
@@ -79,6 +79,16 @@ validateUrl <- function(url, app_token) {
     parsedUrl$query <- NULL
   }
 
+  # if /data appended to URL, remove it
+  pathLength <- nchar(parsedUrl$path)
+  if(substr(parsedUrl$path, pathLength - 4, pathLength) == '/data') {
+     parsedUrl$path <- substr(parsedUrl$path, 1, pathLength - 5)
+  }
+  if(substr(parsedUrl$path, pathLength - 5, pathLength) == '/data/')  {
+    parsedUrl$path <- substr(parsedUrl$path, 1, pathLength - 6)
+  }
+
+
   fourByFour <- basename(parsedUrl$path)
   if(!isFourByFour(fourByFour))
     stop(fourByFour, " is not a valid Socrata dataset unique identifier.")