如何使闪亮小部件的标签与纯文本相同？

Question

在下面的示例中，我有一个数字输入。标签的字体类型为粗体（见图）。如何使标签的字体与纯文本相同，如“这里有一些文本”中的字体？

library(shiny)

ui <- fluidPage(
  br(),
  "Here are some texts",
  br(),
  numericInput(inputId = "num1",
               label = "This is a numeric input",
               value = NA)
)

server <- function(input, output){
  
}

shinyApp(ui, server)

Answer 1

添加此行将ui删除标签中的粗体：

tags$head(tags$style(HTML("label {font-weight:normal;}"))),

添加后，我们可以将它包装在一个 div 中并给它一个类：

tags$head(tags$style(HTML(".not_bold label {font-weight:normal;}"))),
    div(numericInput(inputId = "num1",
                 label = "This is a numeric input",
                 value = NA),class="not_bold")  
    ,numericInput(inputId = "num2",
                 label = "This is a numeric input too",
                 value = NA)