diff --git a/tests/testthat/tests_userFriendly_fxns.R b/tests/testthat/tests_userFriendly_fxns.R index fa9ffe63..f3d7cd81 100644 --- 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))