data-raw/data_waterfall.R

In DataKnowledge/rAmCharts: JavaScript Charts Tool

{data_waterfall <- data.frame(label = c("Income 1", "Income 2", "Income 3", "Total 1", 
                                       "Expenses 1", "Expenses 2", "Total 2", "Income 4", 
                                       "Income 5", "Income 6", "Expenses 3","Total 3", 
                                       "Expenses 4", "Expenses 5", "Total 4"),
                             value = c(5, 10, 15, 30, 10, 5, 15, 50, 10, 35, 10, 100, 
                                       15, 60, 25),
                             operation = c(rep("plus", 3), "total", rep("minus", 2),
                                           "total", "plus", "minus", rep("plus", 2), 
                                           "total", rep("minus", 2), "total"), 
                             stringsAsFactors = FALSE)

devtools::use_data(data_waterfall, overwrite = TRUE)
rm(list = ls())
}