如何更改textInput的实际文本?
举个例子:
library(shiny)
ui <- fluidPage (textInput("id","Enter your Member ID" ))
server <- function(input,output,session){}
shinyApp (ui = ui, server = server)
如果可能的话,我想更改"Enter your Member“的字体--我可以全局这样做,这样我所有闪亮的字体都是一样的吗?也就是说,所有的都将是字体系列:'BentonSans图书‘;
谢谢你的帮助!
发布于 2020-06-23 03:27:32
为了扩展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的一些默认值。我最终只能在用户界面中更改输入字体。
https://stackoverflow.com/questions/51638594
复制相似问题