# NOT RUN {
# --- method 'initialize'
new("AmStockChart", theme = "dark")
# }
# NOT RUN {
# }
# NOT RUN {
# --- constructor
amStockChart()
# }
# NOT RUN {
library(pipeR)
# }
# NOT RUN {
# Dummy example
amStockChart() %>>% setBalloon(gridPosition = "start")
# }
# NOT RUN {
# Dummy example
setCategoryAxesSettings(.Object = amStockChart(), gridPosition = "start")
# }
# NOT RUN {
# Dummy example
setChartCursorSettings(.Object = amStockChart(), oneBallOnly = TRUE)
# }
# NOT RUN {
# Dummy example
amchart <- setChartScrollbarSettings(.Object = amStockChart(), enabled = TRUE)
print(amchart)
# equivalent to:
chartScrollbarSettings_obj <- chartScrollbarSettings()
setChartScrollbarSettings(.Object = amStockChart(),
chartScrollbarSettings = chartScrollbarSettings_obj)
# }
# NOT RUN {
# Dummy example
comparedDataSets_ls <- list(dataSet(compared = TRUE), dataSet(compared = TRUE))
setComparedDataSets(.Object = amStockChart(), comparedDataSets = comparedDataSets_ls)
# }
# NOT RUN {
# Dummy example
addComparedDataSet(.Object = amStockChart(), compared = TRUE)
# }
# NOT RUN {
# Dummy example
dataSets_ls <- list(dataSet(compared = FALSE), dataSet(compared = FALSE))
setDataSets(.Object = amStockChart(), dataSets = dataSets_ls)
# }
# NOT RUN {
# Dummy example
addDataSet(.Object = amStockChart(), compared = FALSE)
# equivalent to:
dataSet_obj <- dataSet(compared = FALSE)
addDataSet(.Object = amStockChart(), dataSet = dataSet_obj)
# }
# NOT RUN {
# Dummy example
print(setDataSetSelector(.Object = amStockChart(), width = 180))
# equivalent to:
dataSetSelector_obj <- dataSetSelector(width = 180)
print(setDataSetSelector(.Object = amStockChart(),
dataSetSelector = dataSetSelector_obj))
# }
# NOT RUN {
# Dummy example
setLegendSettings(.Object = amStockChart(), equalWidths = TRUE)
# }
# NOT RUN {
# Dummy example
setMainDataSet(.Object = amStockChart(), showInCompare = TRUE)
# }
# NOT RUN {
# Dummy example
panels_ls <- list(stockPanel(compared = TRUE), stockPanel(compared = TRUE))
setPanels(.Object = amStockChart(), panels = panels_ls)
# }
# NOT RUN {
# Dummy example
chart <- addPanel(.Object = amStockChart(), allowTurningOff = TRUE); print(chart)
# equivalent to:
panel_obj <- panel(allowTurningOff = TRUE)
addPanel(.Object = amStockChart(), panel = panel_obj)
# }
# NOT RUN {
# Dummy example
setPanelsSettings(.Object = amStockChart(), backgroundAlpha = 0)
# }
# NOT RUN {
# Dummy example
setPeriodSelector(.Object = amStockChart(), dateFormat = "DD-MM-YYYY")
# }
# NOT RUN {
# Dummy example
setStockEventsSettings(.Object = amStockChart(), backgroundAlpha = 1)
# }
# NOT RUN {
# Dummy example
setValueAxesSettings(.Object = amStockChart(), autoGridCount = "TRUE")
# }
Run the code above in your browser using DataLab