knitr::opts_chunk$set(echo=TRUE) library(exa) db <- exa_jdbc()
```{sql, connection=db} select table_schema, count(*) as num_tables from sys.exa_all_tables group by 1 order by 2 desc
## R variables ```r var <- '%IA%'
```{sql, connection=db, max.print = 15} select * from sys.exa_time_zones where time_zone_name like ?var
## R graphics ```{sql, connection=db, output.var='out'} select column_type_id, count(*) from sys.exa_all_columns group by 1
plot(out)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.