02_NHD_Navigate.Rmd updates
Line 21 in addType, remove "all.x" here"
POIs_fin <- POIs_exist %>% left_join(st_drop_geometry(POIs_newAtt) %>% select(COMID, ID2), by = "COMID", all.x = TRUE) %>% mutate(ID = ifelse(!is.na(ID2), ID2, ID)) %>% rename(
:=(!!(paste0("Type_", IDfield)), ID)) %>% select(-ID2
Modifications in NHD_Navigate.R functions (2 minor ones)
Nexus table not writing out properly.
Edited by Bock, Andy