textInput(paste0("inp1-", wid),label = NULL,value = record$Current_week)
这是我用来动态创建文本输入框的代码,文本输入框的id取决于wid(是数字)。
我尝试使用以下CSS格式更改背景颜色,但没有用。
tags$head(tags$style(HTML('#',paste0("inp1-", wid),'{background-color:#f1c232;}')))
请帮助我解决这个问题。
最佳答案
有关输入不是动态创建的示例,请参见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)
希望这可以帮助!