get_node: Get flowline node

In nhdplusTools: NHDPlus Tools

Description

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

Usage

get_node(x, position = "end")

Arguments

x	sf data.frame with one or more flowlines
position	character either "start" or "end"

Value

sf data.frame containing requested nodes

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)

nhdplusTools documentation built on Aug. 18, 2021, 5:07 p.m.