r markdown - 用新行格式化代码块中的文本
r markdown - format text in code chunk with new lines
问题
在 R Markdown (.Rmd) 文档的代码块中,如何解析包含换行符 \n
的字符串以在换行符上显示文本?
资料与例子
我想解析 text <- "this is\nsome\ntext"
以显示为:
this is
some
text
这是一个示例代码块,尝试了几次(没有产生所需的输出):
```{r, echo=FALSE, results='asis'}
text <- "this is\nsome\ntext" # This is the text I would like displayed
cat(text, sep="\n") # combines all to one line
print(text) # ignores everything after the first \n
text # same as print
```
附加信息
文本将来自闪亮应用上的用户输入。
例如ui.R
tags$textarea(name="txt_comment") ## comment box for user input
然后我有一个 download
按钮,它使用 .Rmd
文档来呈现输入:
```{r, echo=FALSE, results='asis'}
input$txt_comment
```
R Studio 图库中的 example of this is here
诀窍是在 "\n"
前连续使用两个空格:
所以将 "\n"
替换为 " \n"
示例:
```{r, results='asis'}
text <- "this is\nsome\ntext"
mycat <- function(text){
cat(gsub(pattern = "\n", replacement = " \n", x = text))
}
mycat(text)
```
结果:
P.S.: 这在 SO 上是一样的(正常降价行为)
如果您只想换行,请在要换行的行尾使用两个空格
问题
在 R Markdown (.Rmd) 文档的代码块中,如何解析包含换行符 \n
的字符串以在换行符上显示文本?
资料与例子
我想解析 text <- "this is\nsome\ntext"
以显示为:
this is
some
text
这是一个示例代码块,尝试了几次(没有产生所需的输出):
```{r, echo=FALSE, results='asis'}
text <- "this is\nsome\ntext" # This is the text I would like displayed
cat(text, sep="\n") # combines all to one line
print(text) # ignores everything after the first \n
text # same as print
```
附加信息
文本将来自闪亮应用上的用户输入。
例如ui.R
tags$textarea(name="txt_comment") ## comment box for user input
然后我有一个 download
按钮,它使用 .Rmd
文档来呈现输入:
```{r, echo=FALSE, results='asis'}
input$txt_comment
```
R Studio 图库中的 example of this is here
诀窍是在 "\n"
前连续使用两个空格:
所以将 "\n"
替换为 " \n"
示例:
```{r, results='asis'}
text <- "this is\nsome\ntext"
mycat <- function(text){
cat(gsub(pattern = "\n", replacement = " \n", x = text))
}
mycat(text)
```
结果:
P.S.: 这在 SO 上是一样的(正常降价行为)
如果您只想换行,请在要换行的行尾使用两个空格