How can I make a reproducible version of an sf dataset to provide for stack overflow questions?

Question

I\'m trying to trouble shoot a problem with filtering an sf polygon data set. I tried to create a reproducible example of the problem using a dummy data set that comes with