ppo <- pubprint()
push(ppo) <- t.test(1:100, 2:101)
push(ppo, add = TRUE) <- .8123 # add d value to last pipe item
push(ppo, item = "i1") <- t.test(1:30, 2:31)
pull(ppo)
pull(ppo, item = "i1")
pull(ppo, item = "i1", remove = TRUE) # removes item as well
Run the code above in your browser using DataLab