Shiny R：textInput 的条件样式

我想改变一些颜色textInput labels，基于从selectInput输出。

这个想法是根据交互式文本的另一个选择来显示新的数据。文本本身，我已经设法（updateTextInput）。我想为他们的标签做类似的事情，因为并非所有textInput改变。

那么，如何改变颜色Pop基于颜色指示的文本输入TagColor输入，然后又如何将颜色重置为默认样式？

library(shiny)

ui<-shinyUI(
  fluidPage(
    selectInput("TagColor", "Color of my Tag",choices=c("Red","Blue",
    "Yellow","Black", "Initial"), 
    selected = "Red", multiple = FALSE),
    textInput("Pop", "Var1", "Test")
  )
)

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


})


shinyApp(ui,server)

一种方法是使用 javascript 覆盖 CSS 类： 要将其更改为红色，将使用以下 JS 片段：document.getElementById('Pop').style.border = 'solid red"

因此，要将它与您的输入一起使用，您可以编写：

paste0("document.getElementById('Pop').style.border = 'solid ", tolower(input$TagColor) ,"'")

要将其包含在您闪亮的应用程序中，您可以使用shinyjs包裹。

完整的应用程序：

library(shiny)
library(shinyjs)

ui<-shinyUI(
  fluidPage(
    useShinyjs(),
    selectInput("TagColor", "Color of my Tag",choices=c("Red","Blue",
                                                        "Yellow","Black", "initial"), 
                selected = "Red", multiple = FALSE),
    textInput("Pop", "Var1", "Test")
  )
)

# 

server<-shinyServer(function(input, output) {
    observe({
      color <- paste0("solid ", tolower(input$TagColor))
      if(color == "solid initial") color <- ""
      runjs(paste0("document.getElementById('Pop').style.border =
      '", color ,"'"))
    })
})

shinyApp(ui,server)