library(exa) library(flexdashboard) db <- exa_jdbc() # put parameters in ~/.exa
```{sql, connection = db} select * from regions
Column {data-width=350} ----------------------------------------------------------------------- ### Pay 1 ```{sql, connection = db, output.var = 'pay_data'} select final_pay_type, count(*) as n from ad_events_in_progress where final_pay_type is not null group by 1
require(ggplot2) ggplot(pay_data, aes(FINAL_PAY_TYPE, N, fill = N)) + geom_bar(stat = 'identity') + coord_flip()
require(highcharter) hchart(pay_data, "treemap", x = FINAL_PAY_TYPE, value = N, color = N)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.