# NOT RUN {
x <- read_bcal("http://tsdye.online/AP/bc-1.csv")
y <- multi_dates_plot(x)
z <- reproduce(y)
# TRUE
identical(y, z)
#ERROR, Not the original file.
z <- reproduce(y, file = "foo.csv")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab