# NOT RUN {
c1 <- read_cast("https://asciinema.org/a/uHQwIVpiZvu0Ioio8KYx6Uwlj.cast?dl=1")
play(c1)
c2 <- read_cast(258660)
play(c2)
# }
# NOT RUN {
c3 <- read_cast(system.file("examples", "hello.cast", package = "asciicast"))
play(c3)
# }
Run the code above in your browser using DataLab