## Not run:
#
# library(rHighcharts)
#
# ### Bar chart
# a <- rHighcharts:::Chart$new()
# a$chart(type = "bar")
# a$plotOptions(column = list(stacking = "normal"))
# a$title(text = "US Personal Expenditure")
# a$yAxis(title = list(text = "US dollars"))
# x <- as.data.frame(t(USPersonalExpenditure))
# a$xAxis(categories = rownames(x))
# a$data(x)
# a # show chart in browser
#
# ### Pie chart
# a <- rHighcharts:::Chart$new()
# a$title(text = "Fruits")
# a$data(x = c("Apples","Bananas","Oranges"), y = c(15, 20, 30), type = "pie", name = "amount")
# a
# ## End(Not run)
Run the code above in your browser using DataLab