render multiple chunks by lapply
#| results='asis'
df <- split(mtcars[,1:5],mtcars$cyl)
purrr::iwalk(
df,
function(x,y){
cat('## Cyl is',y)
print(knitr::kable(x))
}
)
python
{r test-python, engine='python'}
js
```{js, echo=FALSE}
$('.title').css('color', 'red')
```
css
```{css, echo=FALSE}
body {
color: red;
}
```
SQL
```{r}
db = DBI::dbConnect(RSQLite::SQLite())
DBI::dbWriteTable(db,'mtcars',mtcars)
knitr::opts_chunk$set(connection = 'db')
cyl = 4
```
```{sql, connection=db, output.var="dt"}
SELECT * FROM mtcars WHERE cyl = ?cyl limit 2
```
```{r}
knitr::kable(dt)
```
```{sql tab.cap = 'mtcars',max.print= Inf}
select * from mtcars;
```
```{r}
DBI::dbDisconnect(db)
```
