如何将pickerinput标签更改为精细而不是粗体答案

【问题标题】：How to change the pickerinput label to fine instead of bold如何将pickerinput标签更改为精细而不是粗体
【发布时间】：2021-04-12 19:26:14
【问题描述】：

我正在创建一个闪亮的应用程序。使用 pickerinput 创建标签时，默认为粗体。可以改成小字吗？

如果你知道怎么做，或者你知道可以作为参考的网页，请告诉我。

很高兴认识你。

示例代码如下。

library(shiny)
library(leaflet)
library(leaflet.extras)

ui <- fluidPage(
  titlePanel("ShinyApp"),
  sidebarLayout(
    sidebarPanel(
        pickerInput(
        inputId = "Pick",
        label = "SampleSampleSample",
        choices = list(
          c("Sample"),
          Test_list = c("Test1", "Test2", "Test3")
        ),
        options = list(
          `actions-box` = TRUE,
          size = 7,
          `selected-text-format` = "count > 3"
        ),
        multiple = FALSE
      ),
    ),
    mainPanel(
    )
  )
)

server <- function(input, output, session) {}

shinyApp(ui, server)

【问题讨论】：

标签： r shiny pickerinput

【解决方案1】：

试试下面的 css 代码。您可以从 css 中删除 color: red 行。

css <-"
#expr-container label {
  font-weight: 400;
  color: red; 
}
"

ui <- fluidPage(
  titlePanel("ShinyApp"),
  sidebarLayout(
    
    sidebarPanel(
      tags$style(css),
      tags$div(id = "expr-container", pickerInput(
        inputId = "Pick",
        label = "SampleSampleSample",
        choices = list(
          c("Sample"),
          Test_list = c("Test1", "Test2", "Test3")
        ),
        options = list(
          `actions-box` = TRUE,
          size = 7,
          `selected-text-format` = "count > 3"
        ),
        multiple = FALSE
      )),
    ),
    mainPanel(
    )
  )
)

server <- function(input, output, session) {}

shinyApp(ui, server)

【讨论】：

@keniwa，您似乎没有接受您之前查询的任何答案。接受已回答您的 OP 的答案被认为是有礼貌的。这有助于其他正在为相同/相似查询寻找解决方案的人。此外，人们可能愿意在您未来的查询中为您提供帮助。
对不起。接受上一个问题的答案是什么意思？需要什么手术吗？希望你能告诉我。
在答案的左上角，有一个选项可以支持（高于 0）或反对（低于 0）。然后在向下箭头下方进行否决投票，您可以单击时钟以接受答案。一旦您接受，它将显示绿色刻度线。