我正在用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