minor changes + tests

R/cir.R

@@ -370,13 +370,14 @@ cir_img <- function(query,
     )
     if (inherits(h, "try-error")) {
       warning("Problem with web service encountered... Returning NA.")
-      return(NA)
+      return(data.frame(query = query, stringsAsFactors = FALSE))
+    } else {
+      # return paths data.frame
+      data.frame(query = query,
+                 path = path,
+                 url = qurl,
+                 stringsAsFactors = FALSE)
     }
-    # return paths data.frame
-    data.frame(query = query,
-               path = path,
-               url = qurl,
-               stringsAsFactors = FALSE)
   }
   out <- lapply(query,
                 foo,

tests/testthat/test-cir.R

@@ -23,3 +23,14 @@ test_that("cir_query() doesn't mistake NA for sodium", {
 
   expect_true(is.na(cir_query(as.character(NA), 'cas')))
 })
+
+test_that("cir_img()", {
+  skip_on_cran()
+
+  Sys.sleep(5)
+
+
+
+
+})
+