Warning: file_get_contents(/data/phpspider/zhask/data//catemap/3/html/73.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Html 如何在Shiny中动态设置pickerInput菜单的样式_Html_Css_R_Shiny - Fatal编程技术网
Fatal编程技术网
  • html/
  • Html 如何在Shiny中动态设置pickerInput菜单的样式

Html 如何在Shiny中动态设置pickerInput菜单的样式

html css r shiny

Html 如何在Shiny中动态设置pickerInput菜单的样式,html,css,r,shiny,Html,Css,R,Shiny,我想根据下例中colorInput的输入更新我的pickerInput的颜色 这些问题是从pickerInput而不是selectizeInput复制而来的 这在selectizeInput中非常有效： ##加载虹膜数据集 数据（iris） 猫CSS我永远也不会明白这一点。谢谢，谢谢你再次前来救援！ CSS <- function(colors){ template <- " .dropdown-menu ul li:nth-child(%s) a { backgr

我想根据下例中
colorInput
的输入更新我的
pickerInput
的颜色

这些问题是从
pickerInput
而不是
selectizeInput
复制而来的

这在
selectizeInput
中非常有效：

##加载虹膜数据集
数据（iris）

猫
CSS我永远也不会明白这一点。谢谢，谢谢你再次前来救援！

CSS <- function(colors){
  template <- "
.dropdown-menu ul li:nth-child(%s) a {
  background: %s !important;
  color: white !important;
}"
  paste0(
    apply(cbind(seq_along(colors), colors), 1, function(vc){
      sprintf(template, vc[1], vc[2])
    }),
    collapse = "\n"
  )
}



output$css <- renderUI({
  tags$style(HTML(CSS(cols_user())))
})