\donttest{
p <- figure(width = 1000) %>%
ly_points(date, Freq, data = flightfreq,
hover = list(date, Freq, dow), size = 5) %>%
ly_abline(v = as.Date("2001-09-11"))
p
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.