new("AmChart", valueField = "value", theme = "patterns")
if (FALSE) {
amChart(type = "pie")
}
if (FALSE) {
amAngularGaugeChart()
}
if (FALSE) {
amFunnelChart(marginLeft = 15)
}
if (FALSE) {
amRadarChart()
}
if (FALSE) {
amSerialChart(creditsPostion = "top-right")
}
if (FALSE) {
amPieChart()
}
if (FALSE) {
amGanttChart(segmentsField = "segments")
}
if (FALSE) {
amXYChart()
}
if (FALSE) {
allLabels <- list(label(text = "balloonText"), label(text = "column"))
amSerialChart(allLabels = allLabels)
}
# ---
if (FALSE) {
addLabel(.Object = amSerialChart(), text = "balloonText")
# equivalent to:
label_obj <- label(text = "balloonText")
addLabel(.Object = amSerialChart(), label = label_obj)
}
# ---
if (FALSE) {
arrows_ls <- list(gaugeArrow(value = 130), gaugeArrow(value = 150))
amAngularGaugeChart(arrows = arrows_ls)
}
# ---
if (FALSE) {
chart <- addArrow(.Object = amAngularGaugeChart(), value = 10); print(chart)
# equivalent to:
gaugeArrow_obj <- gaugeArrow(value = 10)
addArrow(.Object = amAngularGaugeChart(), arrow = gaugeArrow_obj)
}
# ---
if (FALSE) {
axes_ls <- list(gaugeAxis(value = 130), gaugeAxis(value = 150))
setAxes(.Object = amAngularGaugeChart(), axes = axes_ls)
# If possible, simplify your code by using the constructor:
amAngularGaugeChart(axes = axes_ls)
}
# ---
if (FALSE) {
addAxis(.Object = amAngularGaugeChart(), startValue = 0, endValue = 100, valueInterval = 10)
# equivalent to:
gaugeAxis_obj <- gaugeAxis(startValue = 0, enValue = 100, valueInterval = 10)
addAxis(.Object = amAngularGaugeChart(), axis = gaugeAxis_obj)
}
# ---
if (FALSE) {
setBalloon(.Object = amSerialChart(), adjustBorderColor = TRUE, fillColor = "#FFFFFF",
color = "#000000", cornerRadius = 5)
# equivalent to:
amBalloon_obj <- amBalloon(adjustBorderColor = TRUE, fillColor = "#FFFFFF",
color = "#000000", cornerRadius = 5)
setBalloon(.Object = amSerialChart(), amBalloon = amBalloon_obj)
}
# ---
if (FALSE) {
setCategoryAxis(.Object = amSerialChart(), gridPosition = "start")
# equivalent to:
categoryAxis_obj <- categoryAxis(gridPosition = "start")
setCategoryAxis(.Object = amSerialChart(), categoryAxis = categoryAxis_obj)
}
# ---
setCategoryField(.Object = amSerialChart(), categoryField = "country")
# ---
if (FALSE) {
# with default value, no argument needed
setChartCursor(.Object = amSerialChart())
# other example
setChartCursor(.Object = amSerialChart(), oneBallOnly = TRUE)
# equivalent to
chartCursor_obj <- chartCursor(oneBallOnly = TRUE)
setChartCursor(.Object = amSerialChart(), chartCursor = chartCursor_obj)
}
# ---
if (FALSE) {
# Add the default scrollbar
setChartScrollbar(.Object = amSerialChart())
# equivalent to:
chartScrollbar_obj <- chartScrollbar(updateOnReleaseOnly = FALSE)
setChartScrollbar(.Object = amSerialChart(), chartScrollbar = chartScrollbar_obj)
}
# ---
if (FALSE) {
setCreditsPosition(.Object = amPieChart(), creditsPosition = "top-right")
}
# ---
if (FALSE) {
setDataLoader(.Object = amSerialChart(), url = "data.json", format = "json")
}
# ---
if (FALSE) {
dataProvider_obj <- data.frame(key = c("FR", "US", "GER", "ENG", "IT" ),
value = round(runif(5, max = 100)))
setDataProvider(.Object = amPieChart(), dataProvider = dataProvider_obj)
}
# ---
if (FALSE) {
graphs_ls <- list(graph(balloonText = "balloonText"), graph(type = "column"))
setGraphs(.Object = amSerialChart(), graphs = graphs_ls)
}
# ---
if (FALSE) {
addGraph(.Object = amSerialChart(), balloonText = "balloonText", "type" = "column")
# equivalent to
amGraph_obj <- amGraph(balloonText = "balloonText", "type" = "column")
addGraph(.Object = amSerialChart(), amGraph = amGraph_obj)
}
# ---
if (FALSE) {
print(setGraph(.Object = amGanttChart(), id = "amGraph-1"))
# equivalent to:
amGraph_obj <- amGraph(id = "amGraph-1")
setGraph(.Object = amGanttChart(), amGraph = amGraph_obj)
}
# ---
if (FALSE) {
guides_ls <- list(guide(fillAlpha = .1), guide(fillAlpha = .5))
amSerialChart(guides = guides_ls)
}
# ---
if (FALSE) {
chart <- addGuide(.Object = amSerialChart(), fillAlpha = .1, value = 0, toVAlue = 10)
print(chart)
# equivalent to
guide_obj <- guide(fillAlpha = .1, value = 0, toValue = 10, valueAxis = "1")
addGuide(.Object = amSerialChart(), guide = guide_obj)
}
if (FALSE) {
setLegend(.Object = amChart(), amLegend = amLegend(useGraphSettings = TRUE))
# equivalent to:
setLegend(.Object = amChart(), useGraphSettings = TRUE)
}
# ---
if (FALSE) {
pipeR::pipeline(
amGanttChart(segmentsField = "segments"),
setDataProvider(data.frame(category = c( "John", "Julia"))),
addSegment(1, data.frame(start = 7, duration = 2:3, task = c("Task #1", "Task #2"))),
addSegment(2, data.frame(start = 10, duration = 2:3, task = c("Task #1", "Task #2")))
)
# ---
ls <- list(data.frame(start = 7, duration = 2:3, task = c("Task #1", "Task #2")),
data.frame(start = 10, duration = 2:3, task = c("Task #1", "Task #2")))
pipeR::pipeline(
amGanttChart(segmentsField = "segments"),
setDataProvider(data.frame(category = c( "John", "Julia"))),
addSegment(1:2, ls)
)
}
# ---
if (FALSE) {
amChart_obj <- amChart(dataProvider = data.frame(a = 1:5, b = 6:10))
addSubData(.Object = amChart_obj, categoryIDs = 3, data = data.frame(a = 1:10, b = 11:20))
}
# ---
if (FALSE) {
setSubChartProperties(.Object = amSerialChart(), type = "serial")
}
# ---
if (FALSE) {
setTheme(.Object = amPieChart(), theme = "dark")
}
# ---
if (FALSE) {
titles_ls <- list(amTitle(text = "balloonText"), amTitle(text = "column"))
setTitles(.Object = amXYChart(), titles = titles_ls)
# or...
amXYChart(titles = titles_ls)
}
# ---
if (FALSE) {
addTitle(.Object = amPieChart(), text = "balloonText", size = 15)
# equivalent to
title_obj <- amTitle(text = "balloonText", size = 15)
addTitle(.Object = amPieChart(), title = title_obj)
}
# ---
if (FALSE) {
trendLines <- list(trendLine(initialValue = 1, finalValue = 5),
trendLine(initialValue = 7, finalValue = 19))
setTrendLines(.Object = amSerialChart(), trendLines = trendLines)
# or...
amSerialChart(trendLines = trendLines) # Equivalent
}
# ---
if (FALSE) {
addTrendLine(.Object = amSerialChart(), initialValue = 1, initialXValue = 1,
finalValue = 11, finalXValue = 12)
# equivalent to:
trendLine_obj <- trendLine(initialValue = 1, initialXValue = 1, finalValue = 11, finalXValue = 12)
chart <- addTrendLine(.Object = amSerialChart(), trendLine = trendLine_obj); print(chart)
}
# ---
if (FALSE) {
setType(.Object = amChart(), type = "pie")
# equivalent to:
amPieChart()
}
if (FALSE) {
valueAxes <- list(valueAxis(axisTitleOffset = 12, tickLength = 10),
valueAxis(axisTitleOffset = 10, tickLength = 10))
setValueAxes(.Object = amSerialChart(), valueAxes = valueAxes)
# or...
amSerialChart(valueAxes = valueAxes)
}
# ---
if (FALSE) {
print(addValueAxis(.Object = amSerialChart(), axisTitleOffset = 12, tickLength = 10, title = "foo"))
# equivalent to:
valueAxis_obj <- valueAxis(axisTitleOffset = 12, tickLength = 10, title = "foo")
addValueAxis(.Object = amSerialChart(), valueAxis = valueAxis_obj)
}
# ---
if (FALSE) {
setValueAxis(.Object = amGanttChart())
setValueAxis(.Object = amGanttChart(), type = "date")
}
if (FALSE) {
valueScrollbar_obj <- chartScrollbar(updateOnReleaseOnly = FALSE)
chart <- setValueScrollbar(.Object = amSerialChart(), valueScrollbar = valueScrollbar_obj)
print(chart)
# or...
amSerialChart(updateOnReleaseOnly = FALSE)
}
# ---
Run the code above in your browser using DataLab