Question

如何更改textInput的实际文本？

例如：

 library(shiny)

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

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

 shinyApp (ui = ui, server = server)

我想更改“输入您的会员ID”的字体如果可能的话-我可以全局执行此操作，以便所有闪亮字体都一样吗？即所有字体都为“ BentonSans Book”；

感谢您的帮助！

Answer 1

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

但是，如果要在所有元素上全局更改fontFamily，则可以执行以下操作：

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

input { font-family: BentonSans Book; }（如果它是脚本正在输出html的输入标签）。

Answer 2

要更改所有标签的字体，请执行以下操作：

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

Answer 3

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

    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的某些默认设置。我终于只能在用户界面中更改输入字体。

更改R Shiny文本的字体系列/大小/样式输入说明

3 个答案: