Lets say that I have this code
dt <- data.frame( nr = seq(1: 150) %>% mutate(x = 1) ) if (nrow(dt %>% filter(nr <= 100)) > 0)