data-raw/data_fbar.R

In DataKnowledge/rAmCharts: JavaScript Charts Tool

{
  data_fbar <- data.frame(country = c("USA", "China", "Japan", "Germany", 
                                      "UK", "France", "India", "Spain",
                                      "Netherlands", "Russia", "South Korea",
                                      "Canada"),
                          visits_inf = c(3000, 1800, 1000, 1300, 1100, 1000, 
                                         900, 0, 600, 0, 400, 0),
                          visits_sup = c(3025, 1882, 1809, 1322, 1122, 1114, 
                                         984, 711, 665, 580, 443, 441),
                          color = c("#FF0F00", "#FF6600", "#FF9E01", "#FCD202",
                                    "#F8FF01", "#B0DE09", "#04D215", "#0D8ECF",
                                    "#0D52D1", "#2A0CD0", "#8A0CCF", "#CD0D74"),
                          stringsAsFactors = FALSE)
  devtools::use_data(data_fbar , overwrite = TRUE)
  rm(list = ls())
}