在 Rmd SQL 代码块中包含参数的正确方法是什么？这是一个 Rmd 文件示例：
---
title: "Rmd Example"
output:
html_document:
df_print: paged
pdf_document: default
---
`r Sys.Date()`
This is an example of an Rmd file.
```{r}
library(tidyverse)
library(DBI)
library(odbc)
library(knitr)
options(connectionObserver = NULL)
con = dbConnect(odbc::odbc(),
dsn = "myDsn",
uid = "myUsername",
pwd = "myPassword")
d1=as.Date("2021-03-15")
```
Look for all encounters after `r d1`
```{sql, connection=con, output.var = "encounters"}
select *
from encounters
where date>?d1
```
There are `r nrow(encounters)` after `r d1` and they are
```{r}
kable(encounters)
```
This ends the document.
The ?d1SQL 代码块中的部分不起作用，因为它不是字符串。假装我得到了d1从其他来源来看，它是无法硬编码到 SQL 查询本身中的。与数据库交互的正常方法是参数化这个值，据我了解，它做了两件非常重要的事情：
R确实有支持参数化的能力，例如
library(tidyverse)
library(DBI)
library(odbc)
options(connectionObserver = NULL)
con = dbConnect(odbc::odbc(),
dsn = "myDSN",
uid = "myUsername",
pwd = "myPassword")
d1=as.Date("2021-03-15")
query="select * from encounters where date>:d1"
encounters=dbGetQuery(con,query,params=d1)
这段 R 代码运行良好。如何让 R markdown SQL 代码块接受这样的 SQL 参数？这?d1语法显然只插入文本，它不处理数据类型，尽管文档不清楚，但我怀疑它是否正确转义字符。
需要明确的是，我并不是在寻找一种时髦的技巧来运行代码。我可以使用直接的 R 代码而不是 SQL 块——丢失语法突出显示比丢失参数的正确评估更好。我正在寻找将 SQL 参数放入 SQL 块中的正确方法。
也许这对你来说是一个解决方案，使用glue_sql，它适用于我的电脑
https://community.rstudio.com/t/using-multiple-r-variables-in-sql-chunk/2940/13 https://community.rstudio.com/t/using-multiple-r-variables-in-sql-chunk/2940/13
Rmd 块：
library(DBI)
library(glue)
library(RSQLite)
con <- DBI::dbConnect(RSQLite::SQLite(), ":memory:")
dbWriteTable(con, "mtcars", mtcars, overwrite = TRUE)
cyl_int <- c(4L, 6L)
cyl_sql <- glue_sql("{cyl_int*}")
SELECT * FROM mtcars
WHERE cyl IN (?cyl_sql)
LIMIT 3
对于日期列，您可能必须根据您的数据库或用途正确设置其格式to_date(etc, '%d%...')在 sqlite 中，使用 ISO-8601 日期很容易，例如：
library(DBI)
library(glue)
library(RSQLite)
con <- DBI::dbConnect(RSQLite::SQLite(), ":memory:")
mtcars$DATE_1 <- seq(from = Sys.Date() - 15, to = Sys.Date() + nrow(mtcars) -16, by = 1) %>% as.character()
dbWriteTable(con, "mtcars", mtcars, overwrite = TRUE)
cyl_int <- c(4L, 6L)
cyl_sql <- glue_sql("{cyl_int*}")
d_date_sql <- glue_sql("{Sys.Date()*}", .con = con)
请注意，您必须为字符参数指定 .con 参数，如上所述here https://community.rstudio.com/t/using-multiple-r-variables-in-sql-chunk/2940/14
SELECT cyl, mpg, DATE_1 FROM mtcars
WHERE DATE_1 >= ?d_date_sql
ORDER BY DATE_1