Support loading data from URLs.

Closes #50 See also #52 and #78
charles-plessy · Jun 30, 2023 · 499a167 · 499a167
1 parent 5b476d5
commit 499a167
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/ImportMethods.R b/R/ImportMethods.R
@@ -121,7 +121,8 @@ setGeneric( "getCTSS"
 
 checkFilesExist <- function(paths) {
   for (f in paths)
-    if (! file.exists(f)) stop("Could not locate input file ", f)
+    if (isFALSE(grepl("^http", f)))
+      if (! file.exists(f)) stop("Could not locate input file ", f)
 }
 
 #' toCTSSdt