diff --git a/man/checkWQPdates.Rd b/man/checkWQPdates.Rd
index eb7c847cbd4233f80ac06d0679963d0d685dca05..0266e260bf18d3f0fc6f5aa3765d8bb56044d2a9 100644
--- a/man/checkWQPdates.Rd
+++ b/man/checkWQPdates.Rd
@@ -21,4 +21,5 @@ values <- list(startDateLo="01-01-2002", characteristicName="Phosphorous",
           endDate=as.Date("2014-01-01"))
 values <- checkWQPdates(values)
 }
+\keyword{internal}
 
diff --git a/man/parameterCdFile.Rd b/man/parameterCdFile.Rd
index 29be9129c0d02e0781e93a6df58ef5c773b81dd4..bf5f3fe1fa853eb444196045936a63b85b61772a 100644
--- a/man/parameterCdFile.Rd
+++ b/man/parameterCdFile.Rd
@@ -25,5 +25,5 @@ format=rdb&show=parameter_group_nm&show=parameter_nm&show=casrn&show=srsname&sho
 \examples{
 head(parameterCdFile[,1:2])
 }
-\keyword{datasets}
+\keyword{internal}
 
diff --git a/tests/testthat/tests_general.R b/tests/testthat/tests_general.R
index 21871738b653d85d50d7c671b716917abf747547..a28ef2c6b814bd657f92030845ac965519eb195a 100644
--- a/tests/testthat/tests_general.R
+++ b/tests/testthat/tests_general.R
@@ -32,17 +32,17 @@ test_that("General NWIS retrievals working", {
 test_that("General WQP retrievals working", {
   testthat::skip_on_cran()
   # Bring back when WQP is back
-#   nameToUse <- "pH"
-#   pHData <- readWQPdata(siteid="USGS-04024315",characteristicName=nameToUse)
-#   expect_is(pHData$ActivityStartDateTime, 'POSIXct')
-#   
-#   pHDataExpanded2 <- readWQPdata(bBox=c(-90.10,42.67,-88.64,43.35),
-#                                  characteristicName=nameToUse)
-#   expect_is(pHDataExpanded2$ActivityStartDateTime, 'POSIXct')
-#   
-#   startDate <- as.Date("2013-01-01")
-#   nutrientDaneCounty <- readWQPdata(countycode="US:55:025",startDate=startDate,
-#                          characteristicType="Nutrient")
-#   expect_is(nutrientDaneCounty$ActivityStartDateTime, 'POSIXct')
+  nameToUse <- "pH"
+  pHData <- readWQPdata(siteid="USGS-04024315",characteristicName=nameToUse)
+  expect_is(pHData$ActivityStartDateTime, 'POSIXct')
+  
+  pHDataExpanded2 <- readWQPdata(bBox=c(-90.10,42.67,-88.64,43.35),
+                                 characteristicName=nameToUse)
+  expect_is(pHDataExpanded2$ActivityStartDateTime, 'POSIXct')
+  
+  startDate <- as.Date("2013-01-01")
+  nutrientDaneCounty <- readWQPdata(countycode="US:55:025",startDate=startDate,
+                         characteristicType="Nutrient")
+  expect_is(nutrientDaneCounty$ActivityStartDateTime, 'POSIXct')
    expect_that(1==1, is_true())                      
 })
diff --git a/tests/testthat/tests_imports.R b/tests/testthat/tests_imports.R
index 11bb421b1547089cd71f038c9ba5e8671987a2eb..5f5052c7888e226ec000576caf93af5ce715fc87 100644
--- a/tests/testthat/tests_imports.R
+++ b/tests/testthat/tests_imports.R
@@ -99,12 +99,12 @@ test_that("External importWaterML1 test", {
   expect_is(unitData$dateTime, 'POSIXct')
   
   
-  # Two sites, two pcodes, one site has two data descriptors:
-  siteNumber <- c('01480015',"04085427")
+  # Two sites, two pcodes, one site has two data descriptors
+  siteNumber <- c('01480015',"04085427") #one site seems to have lost it's 2nd dd
   obs_url <- constructNWISURL(siteNumber,c("00060","00010"),startDate,endDate,'dv')
   data <- importWaterML1(obs_url)
   expect_that(length(unique(data$site_no)) == 2, is_true())
-  expect_that(ncol(data) == 10, is_true()) # 3 data, 3 remark codes, and 4 (agency, site, dateTime, tz)
+  expect_that(ncol(data) == 8, is_true()) # 3 data, 3 remark codes, and 4 (agency, site, dateTime, tz)
 
   inactiveSite <- "05212700"
   inactiveSite <- constructNWISURL(inactiveSite, "00060", "2014-01-01", "2014-01-10",'dv')
@@ -123,15 +123,15 @@ context("importWQP_noCRAN")
 test_that("External WQP tests", {
   testthat::skip_on_cran()
   expect_that(1==1, is_true())   
-#   rawSampleURL <- constructWQPURL('USGS-01594440','01075', '', '')
-#   rawSample <- importWQP(rawSampleURL)
-#   expect_is(rawSample$ActivityStartDateTime, 'POSIXct')
-#   
-#   url2 <- paste0(rawSampleURL,"&zip=yes")
-#   rawSample2 <- suppressWarnings(importWQP(url2, TRUE))
-#   expect_is(rawSample2$ActivityStartDateTime, 'POSIXct')
-#   
-#   STORETex <- constructWQPURL('WIDNR_WQX-10032762','Specific conductance', '', '')
-#   STORETdata <- importWQP(STORETex)
-#   expect_is(STORETdata$ActivityStartDateTime, 'POSIXct')
+  rawSampleURL <- constructWQPURL('USGS-01594440','01075', '', '')
+  rawSample <- importWQP(rawSampleURL)
+  expect_is(rawSample$ActivityStartDateTime, 'POSIXct')
+  
+  url2 <- paste0(rawSampleURL,"&zip=yes")
+  rawSample2 <- suppressWarnings(importWQP(url2, TRUE))
+  expect_is(rawSample2$ActivityStartDateTime, 'POSIXct')
+  
+  STORETex <- constructWQPURL('WIDNR_WQX-10032762','Specific conductance', '', '')
+  STORETdata <- importWQP(STORETex)
+  expect_is(STORETdata$ActivityStartDateTime, 'POSIXct')
 })
diff --git a/vignettes/figure/getNWIStemperaturePlot-1.pdf b/vignettes/figure/getNWIStemperaturePlot-1.pdf
index f13c842b9a2021bc9db04f76595d427fbb129f04..4615091c4c4412ceed1ebde0861f252ad2908bcb 100644
Binary files a/vignettes/figure/getNWIStemperaturePlot-1.pdf and b/vignettes/figure/getNWIStemperaturePlot-1.pdf differ