A single predicate function, a formula describing such a
predicate function, or a logical vector of the same length as .x.
Alternatively, if the elements of .x are themselves lists of
objects, a string indicating the name of a lo
x <- zip_n(list(x = 1:10, y = rbernoulli(10)))
x %>% keep("y") %>% length()
x %>% keep(negate("y")) %>% length()
# Same asx %>% discard("y") %>% length()