v1 = letters[1:3]
do.call("c",lapply(seq_along(v1),function(i) utils::combn(v1,i,FUN=list)))
## [[1]]
## [1] "a"
##
## [[2]]
## [1] "b"
##
## [[3]]
## [1] "c"
##
## [[4]]
## [1] "a" "b"
##
## [[5]]
## [1] "a" "c"
##
## [[6]]
## [1] "b" "c"
##
## [[7]]
## [1] "a" "b" "c"
#https://stackoverflow.com/questions/49563565/r-find-all-possible-unique-combinations