R: Examples for 'metricsgraphics::mjs_add_css

### ** Examples

set.seed(1492)
stocks <- data.frame(
  time = as.Date('2009-01-01') + (365 * 0:9),
  X = rnorm(10, 0, 1),
  Y = rnorm(10, 0, 2),
  Z = rnorm(10, 0, 4))

stocks %>%
  mjs_plot(x=time, y=X) %>%
  mjs_line() %>%
  mjs_axis_x(xax_format="date") %>%
  mjs_add_css_rule("{{ID}} .blk { fill:black }") %>%
  mjs_annotate_region("2013-01-01", "2016-01-01", "Crazy times", "blk")

Warning in widget_html(name = class(x)[1], package = attr(x, "package"), :
metricsgraphics_html returned an object of class `list` instead of a
`shiny.tag`.

Error in loadNamespace(name): there is no package called 'webshot'

Examples for 'metricsgraphics::mjs_add_css_rule'

Add a CSS rule to the rendered htmlwidget