nhdplusTools (version 0.7.1)

get_node: Get Flowline Node

Description

Given one or more flowlines, returns a particular node from the flowline.

Usage

get_node(x, position = "end")

Value

sf data.frame containing requested nodes

Arguments

x

sf data.frame with one or more flowlines

position

character either "start" or "end"

Examples

source(system.file("extdata/sample_data.R", package = "nhdplusTools"))

fline <- sf::read_sf(sample_data, "NHDFlowline_Network")

start <- get_node(fline, "start")
end <- get_node(fline, "end")

plot(sf::st_zm(fline$geom),
     lwd = fline$StreamOrde, col = "blue")
plot(sf::st_geometry(start), add = TRUE)

plot(sf::st_zm(fline$geom),
     lwd = fline$StreamOrde, col = "blue")
plot(sf::st_geometry(end), add = TRUE)