css - 如何更改在 R shiny 中动态创建的文本框的背景颜色？

Question

textInput(paste0("inp1-", wid),label = NULL,value = record$Current_week)

这是我用来动态创建文本输入框的代码，文本输入框的 id 取决于 wid(这是一个数字)。

我尝试使用以下 CSS 格式来更改背景颜色，但没有成功。

tags$head(tags$style(HTML('#',paste0("inp1-", wid),'{background-color:#f1c232;}')))

请帮我解决这个问题。

Answer 1

参见 here例如，输入不是动态创建的。在您的情况下，您可以执行以下操作:

library(shiny)

wid=2

ui <- fluidPage(
  uiOutput("my_ui")
)


server <- function(input, output) {

  output$my_ui <- renderUI({
    tagList(
      textInput(paste0("inp1-", wid),label = NULL,value = 0),
      tags$style(paste0("#inp1-", wid,"{background-color:#ff0000;}"))
    )
  })
}

# Run the application 
shinyApp(ui = ui, server = server)

希望这对您有所帮助!