“selectInput”rShiny中的样式标签

Question

我有一个反应性的selectInput，我希望大胆的一部分。这是代码：

ui.r：

shinyUI(fluidPage(
numericInput("num", "Number of Variables",value=2),
uiOutput("select3")
))

server.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")

  })
})

我希望Name1 （LABLE1），Name2 （LABLE2）等出现在下拉列表selectInput中。但是，如果我尝试

strong(toupper(x1))

在paste（）函数中的

我的下拉列表显示为Name1＆lt;强＆GT;（LABLE1）LT; /强＆GT;”。有没有办法实现这个目标？