在R Shiny中TextOutput和VerbatimTextOutput的区别是什么

library(shiny)

ui <- fluidPage(
  textOutput("simpleText")
)

server <- function(input, output) {
  output$simpleText <- renderText({
    "这是一个简单的文本输出示例。"
  })
}

shinyApp(ui = ui, server = server)

library(shiny)

ui <- fluidPage(
  verbatimTextOutput("formattedText")
)

server <- function(input, output) {
  output$formattedText <- renderPrint({
    cat("<h1>这是一个带有HTML标签的文本</h1>\n")
    cat("<p>这段文字使用了HTML标签进行格式化。</p>\n")
  })
}

shinyApp(ui = ui, server = server)

library(shiny)

ui <- fluidPage(
  verbatimTextOutput("formattedText")
)

server <- function(input, output) {
  output$formattedText <- renderPrint({
    cat("<h1>这是一个带有HTML标签的文本</h1>\n")
    cat("<p>这段文字使用了HTML标签进行格式化。</p>\n")
  })
}

shinyApp(ui = ui, server = server)

library(shiny)

ui <- fluidPage(
  verbatimTextOutput("codeSnippet")
)

server <- function(input, output) {
  output$codeSnippet <- renderPrint({
    cat("```r\n")
    cat("# 这是一个R代码片段\n")
    cat("print(\"Hello, World!\")\n")
    cat("```\n")
  })
}

shinyApp(ui = ui, server = server)