mysql - 如何在不删除换行符的情况下在 Sweave 中使用 SQL 查询格式化 R 源代码？

Question

我正在使用 R、MySQL、Sweave 和 LaTeX 生成查询数据库的报告。我的问题是，由于 R 代码嵌入在 .Rnw 文件中，我似乎无法控制多行格式。

我嵌入了以下 R 代码:

library(RMySQL)

con <- dbConnect(MySQL(), 
user='test_user', 
dbname='sakila', 
host='localhost', 
password='password')

data <- dbReadTable(con, 'film_list')

query <-('
SELECT category, count(FID) AS Number 
FROM film_list 
GROUP by category')

Cat <- dbGetQuery(con, query)

Cat

然后我在 Sweave 生成​​的 PDF 中得到以下输出:

> library(RMySQL)
> con <- dbConnect(MySQL(), user = "test_user", dbname = "sakila",
+ host = "localhost", password = "password")
> data <- dbReadTable(con, "film_list")
> query <- ("\nSELECT category, count(FID) AS Number \nFROM film_list \nGROUP by category")
> Cat <- dbGetQuery(con, query)
> Cat

结果是 SELECT 查询在页面外运行。

有没有办法让 LaTeX 输出显示编写的 SQL 查询？

Answer 1

在代码块选项中添加keep.source选项，并设置为true

<<foo,keep.source=TRUE>>=
query <- '
SELECT category, count(FID) AS Number
FROM film_list
GROUP by category'
@

在 latex 源中是这样处理的:

\begin{Schunk}
\begin{Sinput}
> query <- '
+ SELECT category, count(FID) AS Number
+ FROM film_list
+ GROUP by category'
\end{Sinput}
\end{Schunk}

如果标准 Sweave 包装不符合您的喜好，您可以自由调整源代码以满足您在最终 PDF 中的需要。您可以将问题中的所有代码都包含在 block 中，我只是使用了 SQL 位，因为这是您遇到的问题。

您不需要 ( 和 ) 将分配给 query 的字符串包围起来。