更改文本输入闪亮小部件的占位符颜色

Question

在Stackoverflow上的不同旧帖子中找到了一些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)

在"选择演示"页面上，确实会将占位符文本着色为红色。

至于第二个问题，对于定位特定元素，您希望您的选择器像

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

(注意后缀(