更改 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 的一些默認設置。 我最終只能在用戶界面中更改輸入字體。