R 반짝이에서 동적으로 생성 된 텍스트 상자의 배경색을 변경하는 방법은 무엇입니까?

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) 

희망이 있습니다.