r 使用Shiny中的HTML渲染多行中的字符串

Posted 2021-05-23

library(shiny)

ui = basicPage(
  textInput("txt1", "Input the first string"),
  textInput("txt2", "Input the second string"),
  
  uiOutput("cat_str")
)

server = function(input, output) {
  output$cat_str <- renderUI({
    HTML(paste(input$txt1, input$txt2, sep = "<br/>"))
  })
}

shinyApp(ui, server)