Get flowline node
Given one or more flowlines, returns a particular node from the flowline.
get_node(x, position = "end")
x |
sf data.frame with one or more flowlines |
position |
character either "start" or "end" |
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)Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.