# NOT RUN {
s <- new_session(shell_command = "cat")
send_keys(s, "Speak", "Space", "friend")
send_keys(s, "BSpace", count = 6L)
send_keys(s, "mellon and ")
send_keys(s, "enter", "!", literal = TRUE)
send_keys(s, "enter", literal = FALSE)
capture_pane(s, start = 0L, end = 1L)
kill_session(s)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab