shinydashboard动态框标题中的转义HTML

我想根据

selectInput（）

选择动态更改

shinydashboard

中

框的标题，但我无法退出
HTML

library(shiny)
library(shinydashboard)
library(htmltools)
ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    selectInput("plottype", "Select plot type", c("AP:TOTAL","FF:TOTAL","OVERALL")),
    box(title=paste(htmlEscape(textOutput('box1title')),"charts"),
        width = 6,
        solidHeader = TRUE,
        status = "primary",
        p('Use the checkbox to change the title of this box.')
    )
  )
)

server <- function(input, output) {
  output$box1title <- renderText({
    if(input$plottype=="AP:TOTAL"){
      "AP:TOTAL"
    }
    else if(input$plottype=="FF:TOTAL"){
      "FF:TOTAL"
    }
    else{
      "OVERALL"
    }
    
  })
}

shinyApp(ui,server)

库（闪亮）
图书馆（shinydashboard）
图书馆（htmltools）
ui不要在ui中的
粘贴（）
，在服务器中执行粘贴功能

只需将普通测试输出用于框标题

box(title = textOutput('box1title'), ...)

然后在服务器上做

output$box1title <- renderText({
    part <- if(input$plottype=="AP:TOTAL"){
      "AP:TOTAL"
    }
    else if(input$plottype=="FF:TOTAL"){
      "FF:TOTAL"
    }
    else{
      "OVERALL"
    }
    paste(part, "charts")
  })

输出$box1title