new("AmStockChart", theme = "dark")
amStockChart()
setCategoryAxesSettings(.Object = amStockChart(), gridPosition = "start")
setChartCursorSettings(.Object = amStockChart(), oneBallOnly = TRUE)
setChartCursorSettings(.Object = amStockChart(), chartCursorSettings = chartCursor())
setChartCursorSettings(.Object = amStockChart(), chartCursorSettings = "foo")
setChartScrollbarSettings(.Object = amStockChart(), chartScrollbarSettings = chartScrollbar())
library(pipeR)
amStockChart() %>>% setComparedDataSets(list(dataSet(compared = TRUE), dataSet(compared = TRUE)))
addComparedDataSet(.Object = amStockChart(), compared = TRUE)
library(pipeR)
amStockChart() %>>% setDataSets(list(dataSet(compared = FALSE), dataSet(compared = FALSE)))
library(pipeR)
amStockChart() %>>% addDataSet(compared = FALSE) %>>% addDataSet(dataSet())
setDataSetSelector(.Object = amStockChart(), width = 180)
setLegendSettings(.Object = amStockChart(), equalWidths = TRUE)
setMainDataSet(.Object = amStockChart(), showInCompare = TRUE)
panels <- list(stockPanel(compared = TRUE), stockPanel(compared = TRUE))
setPanels(.Object = amStockChart(), panels = panels)
addPanel(.Object = amStockChart(), allowTurningOff = TRUE)
setPanelsSettings(.Object = amStockChart(), backgroundAlpha = 0)
setPeriodSelector(.Object = amStockChart(), dateFormat = "DD-MM-YYYY")
setStockEventsSettings(.Object = amStockChart(), backgroundAlpha = 1)
setValueAxesSettings(.Object = amStockChart(), autoGridCount = "TRUE")
Run the code above in your browser using DataLab