This function helps to add flags highstock charts created from xts
objects.
hc_add_series_flags(hc, dates, title = LETTERS[seq(length(dates))],
text = title, id = NULL, ...)
A highchart
htmlwidget
object.
Date vector.
A character vector with titles.
A character vector with the description.
The name of the series to add the flags. A previous series
must be added with this id
.
Additional shared arguments for the flags data series (http://api.highcharts.com/highstock#plotOptions.flags)
# NOT RUN {
# }
# NOT RUN {
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")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab