# NOT RUN {
Screamer <- type(function(words){
scream <- function(){
paste0(paste(words,
collapse = " "),
"!!!")
}
})
Whisperer <- type(function(words){
whisper <- function(){
paste0("shhhhhhh.....",
paste(words,
collapse = " "),
"...")
}
})
p1 <- Screamer("I love you")
p1$scream()
p2 <- Whisperer("My parents came back")
p2$whisper()
p1 <- p1 %>% merge(p2)
# note the the "word" for both methods became that of p2
p1$whisper()
p1$scream()
# }
Run the code above in your browser using DataLab