regex - 在 Shiny 中使用 textOutput() 在单独的行上打印句子

Question

我有几个句子存储在数据框列的行中，我想用 Shiny 的方式逐行打印出来。

问题是，使用 textOutput() 打印句子会将所有句子连接成一个字符串。

我尝试过使用 verbatimTextOutput，虽然它会打印出带有换行符的句子，但对于大句子来说输出格式可能会很困惑。另外，我想避免伴随 verbatimTextOutput 的灰色背景。

谁能帮我弄清楚如何在打印前在句子之间添加换行符？

下面是一个可重现的例子:

shinyUI(

        textOutput("text")

        )

shinyServer(function(input, output){


        list <- c("blah blah blah", "drivel drivel drivel", 
                  "blah blah blah")

        text.data <- as.data.frame(list)

        colnames(text.data) <- " "

        output$text <- renderPrint({
                text.data

        })

})

以上产生的结果是:

1 blah blah blah 2 drivel drivel drivel 3 blah blah blah

然而，这是我想要的结果:

1 blah blah blah 
2 drivel drivel drivel 
3 blah blah blah  

Answer 1

我认为如果你在 shiny 的 ui 部分使用 uiOutput 并在服务器部分使用 renderTable 会更好，因为你尝试输出一个 data .frame 而不是真正的文本。它会给你你所需要的:

ui <- shinyUI(

  uiOutput("text")

)

server <- shinyServer(function(input, output){


  list <- c("blah blah blah", "drivel drivel drivel", 
            "blah blah blah")

  text.data <- as.data.frame(list)

  colnames(text.data) <- " "

  output$text <- renderTable({

    print(text.data)

  })

})

runApp(list(ui=ui, server=server))

输出: