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

如果是dateInput，则将id赋予div，该div包装标签和输入本身。textInput但是，在id的情况下，id仅传递给输入本身，而不传递给也包装标签的div。因此，您的方法仅适用于dateInput。

您可以将ID包裹textInput在divID中，然后将文本改成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)