在R中,可以使用selectizeInput
函数来创建一个带有闪亮效果的下拉选择框。要设置组标题的字体颜色,可以使用CSS样式来实现。
首先,需要在ui
部分的tags$head
标签中添加一个style
标签,用于定义自定义的CSS样式。然后,在style
标签中使用#
选择器来选择selectize-group-header
类,并设置color
属性为所需的字体颜色。
以下是一个示例代码:
library(shiny)
ui <- fluidPage(
tags$head(
tags$style(
HTML("
.selectize-group-header {
color: red; /* 设置字体颜色为红色 */
}
")
)
),
selectizeInput(
inputId = "myselect",
label = "Select an option",
choices = list(
"Group 1" = c("Option 1", "Option 2", "Option 3"),
"Group 2" = c("Option 4", "Option 5", "Option 6")
),
options = list(
plugins = list("remove_button"),
optgroups = list(
"Group 1",
"Group 2"
)
)
)
)
server <- function(input, output) {
}
shinyApp(ui, server)
在上述代码中,我们使用了tags$style
函数来定义了一个CSS样式,选择器为.selectize-group-header
,并将字体颜色设置为红色。然后,在selectizeInput
函数中,我们创建了一个带有两个组的下拉选择框,并将自定义的CSS样式应用到组标题上。
请注意,这里的示例代码中没有提及腾讯云的相关产品和链接地址,因为在这个特定的问题中,与云计算品牌商无关。如果您有其他关于云计算或其他方面的问题,我将很乐意为您提供更多信息。
领取专属 10元无门槛券
手把手带您无忧上云