Question

我正在制作一个有光泽的应用程序，该应用程序的一项功能是输出作为字符串列表生成的文本。

例如，一个函数输出文本列表，例如

（“ a”，“ b”，“ c”，“ d”）

当我渲染此文本时，它会这样输出

a b c d

相反，我希望呈现文本，以便列表的每个值之间都有一行，因此看起来像

a

b

c

d

我该怎么做？

Answer 1

您可以尝试：

library(shiny)
ui <- fluidPage(
    htmlOutput("mytext")
)

server <- function(input, output, session) {
    output$mytext <- renderUI({
        mylist <- c("a", "b", "c", "d")
        HTML(paste(mylist, sep = "", collapse = '<br/>'))
    })
}

shinyApp(ui, server)

Answer 2

添加到@AndS。答案，另一种选择是将renderText()与htmlOutput()一起使用，然后简单地将paste(mylist, collapse = "<br>")

R renderText（）输出的文本有光泽的拆分行

2 个答案: