gpt4 book ai didi

r - 如何在 Shiny Dashboard 中更改 textInput 的标签颜色

转载 作者:行者123 更新时间:2023-12-04 13:18:28 25 4
gpt4 key购买 nike

我正在处理 Shiny 的仪表板表单应用程序。我想将文本输入的颜色更改为红色,以便我可以将该字段显示为必填字段。但是我尝试了对 dateInput 工作正常但不适用于 textInput 的代码。

我正在开发 Shiny 的仪表板表单应用程序,我想将文本输入的颜色更改为红色,以便我可以将该字段显示为必填字段。但是我尝试了下面列出的代码,这些代码对 dateInput 工作正常,但不适用于 textInput。

column(3,wellPanel(dateInput('dateTR',format = "dd-mm-yyyy",
label = 'Date*',width = "200px",value = Sys.Date()))),
tags$style(type="text/css", "#dateTR {color : red;}"),

column(3, wellPanel(textInput ('textR', label = "Name*", value = "", width = "200px",placeholder = "--Enter name--"))),
tags$style(type="text/css", "#textR {color: red}"),

对于上面的 dateInput 其工作正常,但不适用于 textInput,如屏幕截图所示,我希望标签 :Name 显示为红色。

enter image description here

最佳答案

dateInput 的情况下,id 被赋予一个 div,该 div 包装了标签和输入本身。在 textInput 的情况下但是,id 仅传递给输入本身,而不传递给也包装标签的 div。因此,您的方法仅适用于 dateInput .

你可以包装 textInputdiv带有一个 id,并在其中添加文本 div红色的。下面的工作示例,希望这会有所帮助!

library(shiny)

ui <- fluidPage(
column(3,wellPanel(dateInput('dateTR',format = "dd-mm-yyyy",
label = 'Date*',width = "200px",value = Sys.Date()))),
tags$style(type="text/css", "#dateTR {color : red;}"),

column(3, wellPanel(div(id='my_textinput' ,
textInput ('textR', label = "Name*", value = "", width = "200px",placeholder = "--Enter name--")))),
tags$style(type="text/css", "#my_textinput {color: red}")
)

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

}

shinyApp(ui, server)

enter image description here

关于r - 如何在 Shiny Dashboard 中更改 textInput 的标签颜色,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/57359411/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com