Kill Bad Polygons Dead

remove_invalid_poly.r

remove_invalid_poly <- function(xx){
  to_fix=c()
  for(i in 1:nrow(xx)){
    mn <- min(sapply(st_geometry(xx)[[i]], function(x) nrow(x[[1]])))
    if(mn < 4){
      to_fix <- c(to_fix,i)
    }
  }
  
  for(fix_list in to_fix){
    aa = st_geometry(xx)[[fix_list]]
    to_remove = c()
    for(i in 1:length(aa)){
      nr <- nrow(aa[[i]][[1]])
      if(nr<4){
        
        to_remove <- c(to_remove,i)
      }
    }
    to_remove <- rev(to_remove)
    for(i in to_remove){
      st_geometry(xx)[[fix_list]][[i]]<-NULL
    }
  }
return(xx)
}