Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/77.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Knitr不在R代码块中换行_R_Knitr - Fatal编程技术网

Knitr不在R代码块中换行

Knitr不在R代码块中换行,r,knitr,R,Knitr,我的knitr报告中的R代码块有问题,它们不会用R代码在几乎所有的代码块中换行 这是一个典型的Rmd文件,其块如下: ```{r} batch_merged <- sqldf(c("update batch_merged set winning = 'mix' where (Homophily_Count BETWEEN 1 AND Agents_Count - 1) or (Heterophily_Count BETWEEN 1 AND Agents_Count - 1) or (Pr

我的knitr报告中的R代码块有问题,它们不会用R代码在几乎所有的代码块中换行

这是一个典型的Rmd文件,其块如下:

```{r}
batch_merged <- sqldf(c("update batch_merged set winning = 'mix' where (Homophily_Count BETWEEN 1 AND Agents_Count - 1) or (Heterophily_Count BETWEEN 1 AND Agents_Count - 1) or (Preferential_Count BETWEEN 1 AND Agents_Count - 1)", "select * from batch_merged"))
batch_merged <- sqldf(c("update batch_merged set winning = 'hom' where Homophily_Count = Agents_Count", "select * from batch_merged"))
batch_merged <- sqldf(c("update batch_merged set winning = 'het' where Heterophily_Count = Agents_Count", "select * from batch_merged"))
batch_merged <- sqldf(c("update batch_merged set winning = 'pre' where Preferential_Count = Agents_Count", "select * from batch_merged"))
winning <- sqldf("select OptionGroup, sum(CASE WHEN winning='hom' THEN 1 ELSE 0 END) as homophily, sum(CASE WHEN winning='het' THEN 1 ELSE 0 END) as heterophily, sum(CASE WHEN winning='pre' THEN 1 ELSE 0 END) as preferential, sum(CASE WHEN winning='mix' THEN 1 ELSE 0 END) as mixed from batch_merged group by OptionGroup")
# print.data.frame(winning)
```
我的会话信息:

> library(knitr)
> sessionInfo()
R version 3.1.1 (2014-07-10)
Platform: x86_64-pc-linux-gnu (64-bit)

locale:
 [1] LC_CTYPE=en_US.UTF-8 LC_NUMERIC=C         LC_TIME=C           
 [4] LC_COLLATE=C         LC_MONETARY=C        LC_MESSAGES=C       
 [7] LC_PAPER=C           LC_NAME=C            LC_ADDRESS=C        
[10] LC_TELEPHONE=C       LC_MEASUREMENT=C     LC_IDENTIFICATION=C 

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] knitr_1.9

loaded via a namespace (and not attached):
[1] evaluate_0.5.5 formatR_1.1    stringr_0.6.2  tools_3.1.1  

任何想法都值得赞赏。谢谢

根据评论,我应该首先正确设置我的R代码的格式,使其保持恒定的字符宽度,而不是在编织之后——如果仍然存在任何问题的话——手动编辑我的页面和CSS。如果可能的话,我将结束这个问题。谢谢。

这些是单字符串。您希望如何包装它们?在R代码中,它可以保持单个字符串,但我希望CSS规则将它们包装在里面并。我想这可能对我有帮助。除了2-4行之外,还有更多的指令,这些指令在方框外结束。我想我应该先把代码格式化,然后再编。我猜你是反对手动断线的。您的
sqldf
命令应该仍然有效,即使它们跨多行断开。
> library(knitr)
> sessionInfo()
R version 3.1.1 (2014-07-10)
Platform: x86_64-pc-linux-gnu (64-bit)

locale:
 [1] LC_CTYPE=en_US.UTF-8 LC_NUMERIC=C         LC_TIME=C           
 [4] LC_COLLATE=C         LC_MONETARY=C        LC_MESSAGES=C       
 [7] LC_PAPER=C           LC_NAME=C            LC_ADDRESS=C        
[10] LC_TELEPHONE=C       LC_MEASUREMENT=C     LC_IDENTIFICATION=C 

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] knitr_1.9

loaded via a namespace (and not attached):
[1] evaluate_0.5.5 formatR_1.1    stringr_0.6.2  tools_3.1.1