new("GaugeAxis", alpha = 1)
gaugeAxis()
bands <- list(gaugeBand(startValue = 70, endValue = 90),
gaugeBand(startValue = 40, endValue = 60))
gaugeAxis(bands = bands)
# ---
addBand(.Object = gaugeAxis(), startValue = 0, endValue = 100)
# equivalent to
gaugeBand_obj <- gaugeBand(startValue = 0, endValue = 100)
addBand(.Object = gaugeAxis(), band = gaugeBand_obj)
# ---
Run the code above in your browser using DataLab