如何分别控制Shiny中selectInput的标签和选择文本的字体大小样式？

Question

我selectInput在 Shiny 中有一个小部件。

我想单独控制字体大小的两个label参数，并为小部件本身的输入文本（即的文本choices和selected参数）。

最初的 [无样式] 输出如下所示：

selectInput(inputId = "inId", label = "Different Font Size...", choices = "...From This")

我试着div()像这样使用：

div(style = "font-size: 8px", 
    selectInput(inputId = "inId", label = "Different Font Size...", choices = "...From This")

)

这会缩小label文本和输入文本（即来自 的文本choices）。

• 注意：这与将这种div(style = ...)方法用于形成对比textInput，后者只会影响label文本（而不是输入文本）。

  • 在这种情况下，我会然后用tags$style("#inId {font-size:8px;}")下列的textInput函数来分别修改输入字体大小。

    div(style = "font-size: 8px", 
        textInput(inputId = "inId", label = "Different Font Size...", value = "...From This")
    ), tags$style("#inId {font-size:14px;}")
    

然而，这并没有使用工作selectInput()。

• 指定一个tag$style(...)跟随div(style = ...)包装器似乎对生成的文本样式没有任何影响。

    div(style = "font-size: 8px", 
        selectInput(inputId = "inId", label = "Different Font Size...", choices = "...From This")
    ), tags$style("#inId {font-size:14px;}")
    )
  

那么我该怎么做呢？

我如何控制文本样式（特别是字体大小）分别为label和choices文字的selectInput使用闪亮的小工具？

• 同样，我的目标是获得执行以下操作的能力：

  

---

^{如果重要：我使用的是 Shiny_1.0.3 和 R 版本 3.4.0}

Answer 1

你可以用两个全selectInput()以及在标签本身的div()具有独立字体大小。标签的样式会覆盖外层 div 的样式。

shinyApp(
  ui = fluidPage(
    div(style = "font-size:20px;",
      selectInput(inputId = "inId", label = div(style = "font-size:80px", "Different Font Size..."), 
                  choices = c("...From This", "Test")
                  )
      )
  ),
  server = function(input, output) {

  }
)

我希望这有帮助。
干杯