through some temporary prints in to see if I can track down source of…

… random test failures.
jhollist · Sep 11, 2023 · 14ecb95 · 14ecb95
1 parent 2c18f3d
commit 14ecb95
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 14 deletions.
diff --git a/R/get_elev_point.R b/R/get_elev_point.R
@@ -222,7 +222,9 @@ get_epqs <- function(locations, units = c("meters","feet"),
       message("API returned an empty repsonse (e.g. location in ocean or not in U.S.). NA returned for elevation")
       return(NA)
     } else if(httr::status_code(resp) == 200){
-
+      #browser()
+      print(resp)
+      print(httr::content(resp))
       resp <- jsonlite::fromJSON(httr::content(resp, "text", encoding = "UTF-8"), 
                                simplifyVector = FALSE)
     } else {
@@ -249,7 +251,7 @@ get_epqs <- function(locations, units = c("meters","feet"),
       clear = FALSE, 
       width= 60
     ))
-
+  #browser()
   progressr::with_progress({
   if(serial){
     p <- progressor(along = coords_df)

diff --git a/tests/testthat/test-get_elev_point.R b/tests/testthat/test-get_elev_point.R
@@ -18,18 +18,18 @@ sf_sm_raster <- rasterize(sf_sm, rast(sf_sm, nrow = 10, ncol = 10))
 
 test_that("get_elev_point returns correctly", {
 
-  epqs_df <- get_elev_point(locations = pt_df, prj = ll_prj, src = "epqs")
-  epqs_sf <- get_elev_point(locations = sf_sm, src = "epqs")
-  epqs_sf_prj <- get_elev_point(locations = sf_sm_prj, src = "epqs")
-  epqs_ft <- get_elev_point(locations = sf_sm, src = "epqs", units = "feet")
-  epqs_m <- get_elev_point(locations = sf_sm, src = "epqs", units = "meters")
-  epqs_df_aws <- get_elev_point(locations = pt_df, prj = ll_prj, src = "aws")
-  epqs_sf_aws <- get_elev_point(locations = sf_sm, src = "aws")
-  epqs_sf_aws_z <- get_elev_point(locations = sf_sm, src = "aws", z = 4)
-  epqs_sf_aws <- get_elev_point(locations = sf_sm, src = "aws")
-  epqs_ft_aws <- get_elev_point(locations = sf_sm, src = "aws", units = "feet")
-  epqs_rast <- get_elev_point(locations = blank_raster)
-  epqs_sf_raster <- get_elev_point(locations = sf_sm_raster)
+  epqs_df <- get_elev_point(locations = pt_df, prj = ll_prj, src = "epqs", serial = TRUE)
+  epqs_sf <- get_elev_point(locations = sf_sm, src = "epqs", serial = TRUE)
+  epqs_sf_prj <- get_elev_point(locations = sf_sm_prj, src = "epqs", serial = TRUE)
+  epqs_ft <- get_elev_point(locations = sf_sm, src = "epqs", units = "feet", serial = TRUE)
+  epqs_m <- get_elev_point(locations = sf_sm, src = "epqs", units = "meters", serial = TRUE)
+  epqs_df_aws <- get_elev_point(locations = pt_df, prj = ll_prj, src = "aws", serial = TRUE)
+  epqs_sf_aws <- get_elev_point(locations = sf_sm, src = "aws", serial = TRUE)
+  epqs_sf_aws_z <- get_elev_point(locations = sf_sm, src = "aws", z = 4, serial = TRUE)
+  epqs_sf_aws <- get_elev_point(locations = sf_sm, src = "aws", serial = TRUE)
+  epqs_ft_aws <- get_elev_point(locations = sf_sm, src = "aws", units = "feet", serial = TRUE)
+  epqs_rast <- get_elev_point(locations = blank_raster, serial = TRUE)
+  epqs_sf_raster <- get_elev_point(locations = sf_sm_raster, serial = TRUE)