for one file s1 <- geojsonsf::geojson_sf( file )
s1 <- geojsonsf::geojson_sf( file )
apply filter
polyfilter<-filter(s1, st_is(geometry, c("POLYGON", "L