# NOT RUN {
library(dequer)
s1 <- stack()
for (i in 1:5) push(s1, i)
s2 <- stack()
for (i in 10:8) push(s2, i)
combine(s1, s2)
s1 # now holds all 8 elements
s2 # holds 0 elements
# }
# NOT RUN {
# }
Run the code above in your browser using DataCamp Workspace