data

a <- readRDS("data.RDS")
ggplotly(a %>% ggplot(aes(order_date, demand)) + geom_line() + geom_point() + theme_bw())

Including Plots

You can also embed plots, for example:

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.