如何在闪亮的renderUI中不显示换行符？

Question

我尝试在<pre>标记内包装一行，其中包含换行符，但是，一旦它被呈现，换行符就会被执行。我不希望这样的事情发生。我还以为包含<pre>标签就能阻止这种情况发生呢？

Current output:
this is
a test


Desired output:
this is\na test

可重现的例子:忽略<script>标记，我包含它只是为了表明这段代码比所显示的内容更多。然而，我的主要问题是没有执行换行符。

    server <- function(input, output) {

  output$experience <- renderUI({
    div(
      pre(id = 'txt', 'this is\na test'),
      p(
        HTML("
              <div id='diagram'></div>
              <script>
              var diagram = Diagram.parse(document.getElementById('txt').innerText);
              diagram.drawSVG('diagram', {theme: 'simple'});
              </script>"
             )
        )
      )
    })
}


ui <- fluidPage(
  tags$head(tags$script(src="https://bramp.github.io/js-sequence-diagrams/js/webfont.js"),
            tags$script(src="https://bramp.github.io/js-sequence-diagrams/js/snap.svg-min.js"),
            tags$script(src="https://bramp.github.io/js-sequence-diagrams/js/underscore-min.js"),
            tags$script(src="https://bramp.github.io/js-sequence-diagrams/js/sequence-diagram-min.js")),

  htmlOutput('experience'))


shinyApp(ui, server)

Answer 1

找到解决方案后，您必须包含c()，并且它将以换行符换行的方式输出所需的输出，因此：

pre(id = 'txt', c('this is\\na test'))

输出：'this is\n test‘