rdll <- prep_reach_dist(wel_lon = 295500, wel_lat = 4783200,
stream_sf = stream_lines, reach_id = "reach", stream_pt_spacing = 5)
apportion_polygon(reach_dist_lon_lat = rdll, wel_lon = 295500, wel_lat = 4783200,
max_dist = 5000, coord_crs = sf::st_crs(stream_lines))
apportion_polygon(reach_dist_lon_lat = rdll, wel_lon = 295500, wel_lat = 4783200,
max_dist = 5000, min_frac = 0.05, coord_crs = sf::st_crs(stream_lines))
Run the code above in your browser using DataLab