In reinholdsson/exa: Access Exasol DB through JDBC

library(exa)
library(flexdashboard)
db <- exa_jdbc()  # put parameters in ~/.exa

Column {data-width=650}

Regions

```{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()

Pay 2

require(highcharter)
hchart(pay_data, "treemap", x = FINAL_PAY_TYPE, value = N, color = N)

reinholdsson/exa documentation built on May 27, 2019, 4:54 a.m.