diff --git a/R/discover_nhdplus.R b/R/discover_nhdplus.R index 0918e9f9..74c61c8c 100644 --- a/R/discover_nhdplus.R +++ b/R/discover_nhdplus.R @@ -45,7 +45,7 @@ discover_nhdplus_id <- function(point = NULL, nldi_feature = NULL, raindrop = FA coords[1], " ", coords[2], "))", "&propertyName=featureid") - d <- jsonlite::fromJSON(rawToChar(RETRY("GET", URLencode(URL))$content)) + d <- jsonlite::fromJSON(rawToChar(RETRY("GET", utils::URLencode(URL))$content)) as.integer(d$features$properties$featureid) diff --git a/tests/testthat/test_00_plot_local_nhdplus.R b/tests/testthat/test_00_plot_local_nhdplus.R index 85be6c78..9219e9e5 100644 --- a/tests/testthat/test_00_plot_local_nhdplus.R +++ b/tests/testthat/test_00_plot_local_nhdplus.R @@ -1,7 +1,7 @@ source(system.file("extdata/sample_data.R", package = "nhdplusTools")) test_that("local data", { - + testthat::skip_on_ci() # For test performance Sys.setenv(MAKE_BASIN="FALSE") options("rgdal_show_exportToProj4_warnings"="none")