将变量传递给R中的HTML标记

library(shiny)

ui <- fluidPage(
  h1("将变量传递给HTML标记"),
  textOutput("mytext")
)

server <- function(input, output) {
  output$mytext <- renderText({
    my_variable <- "Hello World"
    HTML(paste0("这是我的变量值：", my_variable))
  })
}

shinyApp(ui, server)

library(shiny)

ui <- fluidPage(
  h1("将变量传递给HTML标记"),
  uiOutput("myui")
)

server <- function(input, output) {
  output$myui <- renderUI({
    my_variable <- "Hello World"
    HTML(paste0("这是我的变量值：", my_variable))
  })
}

shinyApp(ui, server)

library(shiny)

ui <- fluidPage(
  h1("将变量传递给HTML标记"),
  textOutput("mytext"),
  uiOutput("myui")
)

server <- function(input, output) {
  output$mytext <- renderText({
    my_variable <- "Hello World"
    tags$p("这是我的变量值：", my_variable)
  })
  
  output$myui <- renderUI({
    my_variable <- "Hello World"
    tags$p("这是我的变量值：", my_variable)
  })
}

shinyApp(ui, server)