更改 textInput 闪亮小部件的占位符颜色

Question

通过在 Whosebug 上不同的旧帖子中找到的一些 CSS 代码，我设法更改了我的 shinyapp 的每个 selectizeInput 和 selectInput 小部件的占位符颜色，但似乎此代码不适用于 textInput小部件。

您可以在下面找到一个基本的可重现示例：


library(shiny)

ui <- fluidPage(

  tags$style(HTML("::placeholder { /* Chrome, Firefox, Opera, Safari 10.1+ */
                   color: red;
                   opacity: 1; /* Firefox */}

                  :-ms-input-placeholder { /* Internet Explorer 10-11 */
                  color: red;}

                  ::-ms-input-placeholder { /* Microsoft Edge */
                  color: red;
                  }")),

br(),

  selectizeInput(inputId = "one",
                 label = NULL,
                 choices = c("Letters" = "", "A", "B", "C"),
                 selected = ""),

br(),

  textInput(inputId = "two",
            label = NULL,
            placeholder = "Numbers",
            value = "")

)

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

}

shinyApp(ui, server)

如您所见，textInput 小部件的占位符保持灰色，而我希望它也为红色。

提前感谢您的帮助！

Answer 1

你的问题纯粹在于添加你的 CSS 似乎是合理的，因为

var q = document.createElement("style");
q.innerHTML = `::placeholder { color: red }`;
document.body.appendChild(q)

在 selectize demo page 上确实将占位符文本着色为红色。

关于第二个问题，为了定位特定元素，您希望选择器像

#e6-selectized::placeholder { color: red }

（注意后缀）

更改 textInput 闪亮小部件的占位符颜色

Change placeholder color of textInput shiny widget

css

r

placeholder

shiny

shinyapps