html中input字体加粗,更改checkboxGroupInput标签的字体标记（即粗体，斜体）

我正在用R中的Shiny创建一个Web应用程序。我有一个我在地图上绘制的数据集。使用checkboxGroupInput小部件，用户可以选择他们想要在地图上看到的类别(或不)。但是，数据集会随着时间而改变，并非所有类别都可用。为了清楚哪些在当前集合中可用，哪些不是，我想将可用类别设置为粗体。更改checkboxGroupInput标签的字体标记(即粗体，斜体)

到目前为止，我还没有能够得到一个checkboxGroupInput小工具，用复选框显示粗体标签。有没有办法做到这一点？我想要一些标签是大胆的，而其他的则不是。此外，使用updateCheckboxGroupInput我可以更改选项(即仅显示可用类别)，但这不是我想要/需要的。

我曾尝试例如：

x A"=1, "B"=2, "C"=3)

checkboxGroupInput(inputId="test", label="this is a test", choices=x)

但是这种方法只显示格式的标签，在用户界面中的文本。使用Shiny的HTML()功能的解决方案似乎也不起作用，或者...我做错了。

任何想法？

下面是使用以上描述的方法(其不工作)一个简单的闪亮接口例如：

library("shiny")

x A"=1, "B"=2, "C"=3)

server = function(input, output) {}

ui = fluidPage(

checkboxGroupInput(inputId="test", label="this is a test", choices=x)

)

runApp(list(ui = ui, server = server))

下一个例子的工作，但初始化复选框团时，它是一个解决方案。在服务器部分中启用observe功能表明相同的解决方案不适用于updateCheckboxGroupInput。这是有道理的，因为该函数不返回HTML代码。我不知道如何访问该更新函数的输出，或者如何解决它。

library("shiny")

x A"=1, "B"=2, "C"=3)

y D"=1, "E"=2, "F"=3)

server = function(input, output, session) {

# observe({

# input$test

# gsub(">", ">", gsub("<", "

# })

}

ui = fluidPage(

gsub(">", ">", gsub("<", "

)

runApp(list(ui = ui, server = server))

2016-03-02

Anton