new("AmStockChart", theme = "dark")
amStockChart()
# ---
setBalloon(.Object = amStockChart(), gridPosition = "start")
# ---
setCategoryAxesSettings(.Object = amStockChart(), gridPosition = "start")
# ---
setChartCursorSettings(.Object = amStockChart(), oneBallOnly = TRUE)
# ---
setChartScrollbarSettings(.Object = amStockChart(), enabled = TRUE)
# equivalent to:
chartScrollbarSettings_obj <- chartScrollbarSettings()
setChartScrollbarSettings(.Object = amStockChart(),
chartScrollbarSettings = chartScrollbarSettings_obj)
# ---
comparedDataSets_ls <- list(dataSet(compared = TRUE), dataSet(compared = TRUE))
setComparedDataSets(.Object = amStockChart(), comparedDataSets = comparedDataSets_ls)
addComparedDataSet(.Object = amStockChart(), compared = TRUE)
# ---
dataSets_ls <- list(dataSet(compared = FALSE), dataSet(compared = FALSE))
setDataSets(.Object = amStockChart(), dataSets = dataSets_ls)
# ---
addDataSet(.Object = amStockChart(), compared = FALSE)
# equivalent to:
dataSet_obj <- dataSet(compared = FALSE)
addDataSet(.Object = amStockChart(), dataSet = dataSet_obj)
# ---
print(setDataSetSelector(.Object = amStockChart(), width = 180))
# equivalent to:
dataSetSelector_obj <- dataSetSelector(width = 180)
print(setDataSetSelector(.Object = amStockChart(),
dataSetSelector = dataSetSelector_obj))
setLegendSettings(.Object = amStockChart(), equalWidths = TRUE)
setMainDataSet(.Object = amStockChart(), showInCompare = TRUE)
panels_ls <- list(stockPanel(compared = TRUE), stockPanel(compared = TRUE))
setPanels(.Object = amStockChart(), panels = panels_ls)
addPanel(.Object = amStockChart(), allowTurningOff = TRUE)
# equivalent to:
panel_obj <- panel(allowTurningOff = TRUE)
addPanel(.Object = amStockChart(), panel = panel_obj)
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