diff --git a/workspace/R/NHD_navigate.R b/workspace/R/NHD_navigate.R
index f2d45e0ea6ef04871f0c8acbdc1501b83a9a4bcb..529435049cc61b3a53270c9935ae4ed9ca7bb56b 100644
--- a/workspace/R/NHD_navigate.R
+++ b/workspace/R/NHD_navigate.R
@@ -1474,7 +1474,7 @@ wb_poi_collapse <- function(tmp_POIs, nhd, events){
   return(list(POIs = tmp_POIs_fin, events_ret = events))
 }
 
-#'  Creates Waterbody POIs, calls a few other functions
+#'  Collapses POIs together based on criteria
 #'  @param (pois) sf data frame of POIs
 #'  @param move_category (character) POI data theme to move
 #'  @param DAR (numeric) drainage area threshold to move within