It works by moving where data is called.
shp_selected() %>%
leaflet() %>%
Then removing data = shp_selected()
Actually, I have noticed that my example is not completely reproducible, but this is what works with my real dataset. I might have done something a little different there.