address further nhddplusTools dependencies

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: hydroloom
 Title: Utilities to Weave Hydrologic Fabrics
-Version: 1.0.1
+Version: 1.0.2
 Authors@R: 
     person(given = "David", 
            family = "Blodgett", 

NEWS.md

@@ -1,4 +1,4 @@
-hydroloom 1.0.1
+hydroloom 1.0.1 and 1.0.2
 ==========
 
 - Add checks if nhdplusTools is available.

R/disambiguate.R

@@ -17,6 +17,7 @@
 #' value, duplicates will be returned.
 #' @export
 #' @examples
+#' if(require(nhdplusTools)) {
 #' source(system.file("extdata", "sample_flines.R", package = "nhdplusTools"))
 #'
 #' hydro_location <- sf::st_sf(id = c(1, 2, 3),
@@ -45,6 +46,7 @@
 #' result[result$point_id == 2, ]
 #'
 #' result[result$point_id == 3, ]
+#' }
 #'
 disambiguate_indexes <- function(indexes, flowpath, hydro_location) {
   orig_index_names <- names(indexes)

R/get_hydro_location.R

@@ -7,6 +7,7 @@
 #' @returns sfc_POINT simple feature geometry list of length `nrow(indexes)`
 #' @export
 #' @examples
+#' if(require(nhdplusTools)) {
 #' source(system.file("extdata", "sample_flines.R", package = "nhdplusTools"))
 #'
 #' indexes <- index_points_to_lines(sample_flines,
@@ -16,7 +17,7 @@
 #'                               crs = 4326)))
 #'
 #' get_hydro_location(indexes, sample_flines)
-#'
+#'}
 get_hydro_location <- function(indexes, flowpath) {
   flowpath <- hy(flowpath)
 

R/index_points_to_lines.R

@@ -154,7 +154,7 @@ interp_meas <- function(m, x1, y1, x2, y2) {
 #' @examples
 #'
 #' \donttest{
-#'
+#' if(require(nhdplusTools)) {
 #' source(system.file("extdata", "sample_flines.R", package = "nhdplusTools"))
 #'
 #' point <- sf::st_sfc(sf::st_point(c(-76.87479, 39.48233)),
@@ -178,6 +178,7 @@ interp_meas <- function(m, x1, y1, x2, y2) {
 #'                       max_matches = 10)
 #'
 #'  }
+#'  }
 #'
 index_points_to_lines <- function(x, points,
                                   search_radius = NULL,

tests/testthat/test_index.R

@@ -53,6 +53,7 @@ if(require(nhdplusTools)) {
 
   sample_flines <- sf::st_cast(sample_flines, "LINESTRING", warn = FALSE)
 }
+
 test_that("point indexing to nearest existing node works as expected", {
 
   if(!require(nhdplusTools)) skip("Missing nhdplusTools")
@@ -108,6 +109,8 @@ test_that("point indexing to nearest existing node works as expected", {
 
 test_that("point indexing works without measures", {
 
+  if(!require(nhdplusTools)) skip("Missing nhdplusTools")
+
     flines_in <- sample_flines
 
     flines_in <- sf::st_cast(sf::st_transform(flines_in, 4269),
@@ -126,6 +129,8 @@ test_that("point indexing works without measures", {
 
 test_that("point indexing to for multiple points works", {
 
+  if(!require(nhdplusTools)) skip("Missing nhdplusTools")
+
   flines_in <- sample_flines
 
   flines_in <- sf::st_transform(flines_in, 4269)