fix test

Author: ldecicco-USGS

R/walk_pages.R

@@ -41,13 +41,16 @@ deal_with_empty <- function(return_list, properties, service,
     if(service == "daily"){
       return_list$time <- as.Date(as.character())
     }
+
+    return_list <- data.frame(return_list)
+    return_list$geometry <- NULL
+    
+    if(!skipGeometry){
+      return_list <- sf::st_as_sf(return_list, geometry = sf::st_sfc())
+    }
+    
   }
-  return_list <- data.frame(return_list)
-  return_list$geometry <- NULL
-  
-  if(!skipGeometry){
-    return_list <- sf::st_as_sf(return_list, geometry = sf::st_sfc())
-  }
+
   return(return_list)
 }
 

tests/testthat/tests_userFriendly_fxns.R

@@ -68,7 +68,7 @@ test_that("Unit value data returns correct types", {
 context("Peak, rating, meas, site")
 test_that("peak, rating curves, surface-water measurements", {
   testthat::skip_on_cran()
-  skip_on_ci()
+  testthat::skip_on_ci()
   siteNumbers <- c("01594440", "040851325")
   data <- readNWISpeak(siteNumbers)
   expect_is(data$agency_cd, "character")
@@ -120,7 +120,8 @@ test_that("peak, rating curves, surface-water measurements", {
 
 test_that("read_waterdata_daily", {
   testthat::skip_on_cran()
-
+  testthat::skip_on_ci()
+  
   siteNumber <- "USGS-04085427"
   startDate <- "2012-01-01"
   endDate <- "2012-06-30"

tutorials/images/publish.png

@@ -12,10 +12,10 @@ editor_options:
   chunk_output_type: console
 ---
 
-Click the slide below then "f" for full screen, and "Esc" to escape full screen.
+For a direct link to the slides, go [here](https://doi-usgs.github.io/dataRetrieval/tutorials/basic_slides_deck.html). Use the arrow keys to advance the slides. Or click the slide below then "f" for full screen, and "Esc" to escape full screen.
 
 ```{=html}
-<iframe src="../tutorials/basic_slides_deck.html" width="700"
+<iframe src="../tutorials/basic_slides_deck.html" width="800"
   height="400"></iframe>
 ```
 

vignettes/basic_slides.Rmd

@@ -12,7 +12,7 @@ editor_options:
   chunk_output_type: console
 ---
 
-Click the slide below then "f" for full screen, and "Esc" to escape full screen.
+For a direct link to the slides, go [here](https://doi-usgs.github.io/dataRetrieval/tutorials/changes_slides_deck.html). Use the arrow keys to advance the slides. Or click the slide below then "f" for full screen, and "Esc" to escape full screen.
 
 ```{=html}
 <iframe src="../tutorials/changes_slides_deck.html" width="700"