Fix cases where frags did not exist in clean_geometry

[mikejohnson51]

Hi @dblodgett-usgs,

This should solve the issue of the missing fragments, and duplicate areasqkm issue.

library(hyRefactor)
#> Registered S3 method overwritten by 'geojsonlint':
#>   method         from 
#>   print.location dplyr
#> USGS Support Package: https://owi.usgs.gov/R/packages.html#support
catchments = readRDS("/Users/mjohnson/Downloads/agg_fail.rds")
ttt = clean_geometry(catchments)
plot(ttt$geometry)

^{Created on 2021-12-06 by the reprex package (v2.0.1)}

[dblodgett-usgs]

Thanks Mike!!