r - 更改 R Shiny 小部件输入文本大小

Question

所以我有 numInputs，我想更改实际出现在文本框中的数字的文本大小。

我将如何实现这一目标？

Answer 1

正如@warmoverflow 所说，最简单的方法是使用 CSS。下面是向小部件添加一些 CSS 的两个示例，第一个将仅应用于具有指定 id 的元素，第二个将应用于所有类型为 number 的元素。我假设它是 numericInput而不是 numInputs，但它应该适用于任何其他输入小部件。

选项 1. 更改特定元素的 CSS

runApp(list(
  ui = shinyUI(fluidPage(
    tags$style("#myNumericInput {font-size:50px;height:50px;}"),
    numericInput("myNumericInput", "Observations:", 10, min = 1, max = 100),
    numericInput("otherNumericInput", "Observations 2:", 10, min = 1, max = 100)
  )),
  server = shinyServer(function(input, output, session) {
  })
))

选项 2. 更改所有类型为 number 的元素的 CSS .

runApp(list(
  ui = shinyUI(fluidPage(
    tags$style("[type = 'number'] {font-size:50px;height:50px;}"),
    numericInput("myNumericInput", "Observations:", 10, min = 1, max = 100),
    numericInput("otherNumericInput", "Observations 2:", 10, min = 1, max = 100)
  )),
  server = shinyServer(function(input, output, session) {
  })
))

请注意，除了更改字体大小之外，我还更改了高度，这是为了确保框足够大以显示不同大小的数字。

此外，您可以考虑使用单独的 .css 文件来放置所有自定义样式。