gistfile1.txt

library(tidyverse)

example <- tibble(id = 1:500,
                  A = sample(TRUE:FALSE, 500, replace = TRUE),
                  B = sample(TRUE:FALSE, 500, replace = TRUE),
                  C = sample(TRUE:FALSE, 500, replace = TRUE),
                  D = sample(TRUE:FALSE, 500, replace = TRUE),
                  E = sample(TRUE:FALSE, 500, replace = TRUE),
                  F = sample(TRUE:FALSE, 500, replace = TRUE))

check_combinations <- function(m = 5) {
    com <- colnames(example)[2:ncol(example)] %>%
           combn(m) %>%
           as_tibble
    out <- com %>%
           map(~ example[.]) %>%
           map(~ rowSums(.) == ncol(.)) %>%
           setNames(map(com, paste, collapse = ' + ')) %>%
           as_tibble
    return(out)
}

result <- map(2:6, check_combinations) %>%
          bind_cols(example, .)

result