更改 R Shiny textInput 指令的字体系列/大小/样式

Question

如何更改 textInput 的实际文本？

所以例如：

 library(shiny)

 ui <- fluidPage (textInput("id","Enter your Member ID" ))

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

 shinyApp (ui = ui, server = server)

如果可能的话，我想更改“输入您的会员 ID”的字体 - 我可以全局执行此操作，以便我所有的闪亮字体都相同吗？ 即全部都是 font-family: 'BentonSans Book';

谢谢您的帮助！

Answer 1

要更改所有标签的字体：

ui <- fluidPage (
  tags$head(
    tags$style("label{font-family: BentonSans Book;}")
  ),
  textInput("id","Enter your Member ID" )
)

Answer 2

我会对此发表评论，但我没有足够的声誉。

但是，如果您想在所有元素中全局更改 fontFamily，您可以执行以下操作：

* { font-family: BentonSans Book; } * { font-family: BentonSans Book; } . 这将影响页面上的每个元素，并将其全局设置为该字体系列。 但是，如果您只想要由该脚本生成的特定 html 元素，请首先找出它是什么 html 元素，然后您可以执行以下操作：

input { font-family: BentonSans Book; } input { font-family: BentonSans Book; }如果它是一个输入标签，脚本正在输出的HTML即是。

Answer 3

为了扩展 Stéphane 的答案，我最终使用“标签”作为一种字体并将“输入”作为另一种字体来自定义我的输入框，如下所示：

    ui <- dashboardPage(
    tags$head(
      tags$link(rel = "stylesheet", type = "text/css", href = "shiny.css"),
      tags$style("input {font-family: Courier; font-size:16px; font-weight:bold;}"),
      tags$style("label {font-family: 'Lucida Sans Unicode', 'Lucida Grande', sans-serif; font-size:16px; font-weight:bold;}")
    ),
    body = body,
    header = header,
    sidebar = sidebar,
)

请注意那些试图使用单独的 css 文件的人； 在我的一生中，我无法通过更改链接 css 中元素的样式来覆盖 Shiny 的一些默认设置。 我最终只能在用户界面中更改输入字体。