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

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)