highcharter (version 0.2.0)

hc_add_series_flags: Shorcut for add flags to highstock chart

Description

This function helps to add flags highstock charts created from xts objects.

Usage

hc_add_series_flags(hc, dates, title = LETTERS[seq(length(dates))],
  text = title, id = NULL, ...)

hc_add_serie_flags(hc, dates, title = LETTERS[seq(length(dates))],
  text = title, id = NULL, ...)

Arguments

hc

A highchart htmlwidget object.

dates

Date vector.

title

A character vector with titles.

text

A character vector with the description.

id

The name of the series to add the flags. A previous series must be added whith this id.

...

Aditional shared arguments for the *flags* data series (http://api.highcharts.com/highstock#plotOptions.flags)

Examples

library("quantmod")

usdjpy <- getSymbols("USD/JPY", src="oanda", auto.assign = FALSE)

dates <- as.Date(c("2015-05-08", "2015-09-12"), format = "%Y-%m-%d")
highchart(type = "stock") %>% 
  hc_add_series_xts(usdjpy, id = "usdjpy") %>% 
  hc_add_series_flags(dates,
                      title = c("E1", "E2"), 
                      text = c("This is event 1", "This is the event 2"),
                      id = "usdjpy")