r - Shiny 的 R renderText 粘贴新行并加粗

Question

我有以下几点:

output$count <- renderText({
#some input

    paste("Your length is:" , input$length , "Your weight is:" , weight , 
"Your age is:", age) 

我想要三个句子，通常我会使用 sep="\n"，但这不起作用。如何使用\n 或任何其他方法在我的粘贴中获取新行？
编辑:我也想得到粗体的答案，这可能吗？

Answer 1

像这样的东西？

应用程序

    library(shiny)

    ui <- shinyUI(fluidPage(


       titlePanel("HTML"),


       sidebarLayout(
          sidebarPanel(
             textInput("length",
                         "Enter your length:"),
             textInput("weight",
                       "Enter your weigth:")

          ),


          mainPanel(
                  htmlOutput("testHTML")
          )
       )
    ))


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

       output$testHTML <- renderText({
               paste("<b>Your length is: ", input$length, "<br>", "Your weight is: ", input$weight, "</b>")
       })
    })


    shinyApp(ui = ui, server = server)