replace with more percise code

[dcarver1]

use
st_drop_geometry()

to replace

as.data.frame()%>%
dplyr::select(-geometry)