test.Rmd

```{r setup}
library(DBI)
con <- dbConnect(RSQLite::SQLite(), ":memory:")
dbWriteTable(con, "mtcars", mtcars)
library(glue)
```

```{r}
tbl <- "mtcars"
```

```{r engine = "glue_sql", connection = "con"}
SELECT * FROM {`tbl`} where gear IN ({3:4*})
```

```{gluesql connection = "con"}
SELECT * FROM {`tbl`} where gear IN ({3:4*})
```


```{r engine = "glue"}
First three letters are {letters[1:3]}
```

```{r engine = "glue"}
NA = {NA}
```