test coverage

R/add_pfafstetter.R

@@ -48,7 +48,7 @@ required_atts_pfafsetter <- c(id, toid, total_da_sqkm, topo_sort, levelpath)
 #' pfaf <- add_pfafstetter(x, max_level = 4)
 #'
 #' hr_catchment <- dplyr::left_join(hr_data$NHDPlusCatchment,
-#'                                  st_drop_geometry(pfaf), by = c("FEATUREID" = "id"))
+#'                                  sf::st_drop_geometry(pfaf), by = c("FEATUREID" = "id"))
 #'
 #' colors <- data.frame(pf_level_4 = unique(hr_catchment$pf_level_4),
 #'                      color = sample(terrain.colors(length(unique(hr_catchment$pf_level_4)))))

R/navigate_network_dfs.R

@@ -2,7 +2,7 @@
 #' @description given a starting node, return all reachable paths. Once visited,
 #' a node is marked as visited and will not take part in a future path.
 #' @param x data.frame containing hydroloom compatible network or list
-#' as returned by \link{make_index_ids} (for down) or \link{make_from_ids}
+#' as returned by \link{make_index_ids} (for down) or \link{make_fromids}
 #' (for up). The list formats avoids recreating the index ids for every call
 #' to navigate network dfs in the case that it needs to be called many times.
 #' @param starts vector with ids from x to start at.

R/utils.R

@@ -86,7 +86,7 @@ rename_geometry <- function(g, name){
 #' @examples
 #'
 #' (g <- sf::st_sf(a=3, geo = sf::st_sfc(sf::st_point(1:2))))
-#' st_drop_geometry(g)
+#' sf::st_drop_geometry(g)
 #'
 drop_geometry <- function(x) {
   warning("no longer needed -- will be dropped")