The data has been verified as coming back with a different column name

DOI-USGS · Jul 28, 2017 · 0194a45 · 0194a45
1 parent e56ca9b
commit 0194a45
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/tests/testthat/tests_userFriendly_fxns.R b/tests/testthat/tests_userFriendly_fxns.R
@@ -35,10 +35,12 @@ test_that("Unit value data returns correct types", {
   startDate <- "2012-07-10"
   endDate <- "2012-07-17"
   dd_2 <- readNWISuv(site, pCode, startDate, endDate)
-  expect_true(all(names(dd_2) %in% c("agency_cd","site_no",                   
-                                 "dateTime","X_.YSI.6136.UP._63680_00000",   
-                                 "X_YSI.6136.DOWN_63680_00000","X_.YSI.6136.UP._63680_00000_cd",
-                                 "X_YSI.6136.DOWN_63680_00000_cd","tz_cd")))
+  expect_true(any(names(dd_2) %in% c("agency_cd","site_no",                   
+                                 "dateTime",
+                                 "X_63680_00000","X_63680_00000_cd",
+                                 "X_.YSI.6136.UP._63680_00000",   
+                                 "X_.YSI.6136.UP._63680_00000_cd",
+                                 "tz_cd")))
 
   noData <- readNWISuv("01196500","00010", "2016-06-15", "2016-06-15")
   # expect_equal(noData$X_00010_00000[1], as.numeric(NA))