[Solved] How to generate a list of certain subsets of x in r?

I have managed to do it by

    s <- c(1,2,3)
    powerSet(s)[-length(powerSet(s))]

Thanks!