Предотвращение разделения последнего слова в строке в отчете R Markdown

Question

Я хочу использовать R Markdown для печати открытых ответов (символьных строк любой длины) на вопрос опроса, и я хочу, чтобы все ответы были в одном заголовке. Например, вопрос «Как этот учитель может совершенствоваться?» хранится во фрейме данных с именем d в переменной с именем x.

Вот пример:

---
title: "Teacher Survey"

output:
  html_document 
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, message = FALSE, warning = FALSE)
```
```{r}
d <- data.frame(id = (1:2), x =c("Test to see if word gets split: I kind 
of think that for this teacher to improve they will have make a better 
attempt to attend to the needs of all the students in the classroom", 
"For this teacher to improve they will have make a better attempt to 
attend to the needs of all the students in the classroom"), 
stringsAsFactors = FALSE)
```
###How can this teacher improve
```{r comment=NA}
print(d$x)
```

Первый ответ печатает «bette» в первой строке и «r» во второй строке вместо того, чтобы печатать «лучше» все в одной строке. Как мне сделать так, чтобы «лучше» печаталось все в одну строку?

Answer 1

Мне нравится использовать cat() вместо print() и указывать results='asis' для чанка.

Таким образом, текст отображается напрямую через html.

###How can this teacher improve
```{r comment=NA, results='asis'}
cat(d$x)
```

Вместо блока <code/> через html.

Вот сравнение HTML между первым и вторым изображениями. Обратите внимание, что первый путь начинается просто как <p>Test, а второй - <pre><code>[1] &quot;.

<div id="how-can-this-teacher-improve" class="section level3">
<h3>How can this teacher improve</h3>
<p>Test to see if word gets split: I kind of think that for this teacher to improve they will have make a better attempt to attend to the needs of all the students in the classroom For this teacher to improve they will have make a better attempt to attend to the needs of all the students in the classroom</p>
</div>

<div id="how-can-this-teacher-improve" class="section level3">
<h3>How can this teacher improve</h3>
<pre><code>[1] &quot;Test to see if word gets split: I kind \nof think that for this teacher to improve they will have make a better \nattempt to attend to the needs of all the students in the classroom&quot;
[2] &quot;For this teacher to improve they will have make a better attempt to \nattend to the needs of all the students in the classroom&quot;