Html “内部样式标签”；选择输入"；斯希尼

我有一个反应式的selectInput，我希望它的一部分是粗体的。代码如下：

ui.r：

服务器.r

shinyServer(function(input, output) {

  df<-reactive({
    s<-rep(0,input$num)
    for(i in 1:input$num){
      s[i]<-paste("Name",i,sep="")

    }
    s
  })

  dflist<-reactive({
    s<-rep(0,input$num)
    for(i in 1:input$num){
      s[i]<-paste("label",i,sep="")

    }
    s
  })

  output$select3 <- renderUI({
    x1=dflist()
    x1<-paste((df())," ", " (", toupper(x1), ")", sep="")
    select.value3<-(x1)
    selectizeInput("UseVar", "Use # Variable (OPTIONAL):", choices=c("None",select.value3),
                   multiple=F,selected="None")

  })
})

在paste（）函数中，我的下拉列表显示为Name1（标签1）”。有没有办法做到这一点

shinyServer(function(input, output) {

  df<-reactive({
    s<-rep(0,input$num)
    for(i in 1:input$num){
      s[i]<-paste("Name",i,sep="")

    }
    s
  })

  dflist<-reactive({
    s<-rep(0,input$num)
    for(i in 1:input$num){
      s[i]<-paste("label",i,sep="")

    }
    s
  })

  output$select3 <- renderUI({
    x1=dflist()
    x1<-paste((df())," ", " (", toupper(x1), ")", sep="")
    select.value3<-(x1)
    selectizeInput("UseVar", "Use # Variable (OPTIONAL):", choices=c("None",select.value3),
                   multiple=F,selected="None")

  })
})

strong(toupper(x1))