title: Shiny R: Conditional style for textInput
body: <p>I want to change the colour of some <code>textInput</code> <strong>labels</strong>, based on a selection from a <code>selectInput</code> output. </p>
  
  <p>The idea is to show, what data in new based on another selection for interactive text. The text itself, I have managed (<code>updateTextInput</code>). I would like to do something similar for their label as not all <code>textInput</code> change. </p>
  
  <p>So, how do I change the colour of the <code>Pop</code> textInput based on the colour indicated from the <code>TagColor</code> input, and then again, how do I reset the color to its default style? </p>
  
  <pre><code>library(shiny)
  
  ui&lt;-shinyUI(
    fluidPage(
      selectInput("TagColor", "Color of my Tag",choices=c("Red","Blue",
      "Yellow","Black", "Initial"), 
      selected = "Red", multiple = FALSE),
      textInput("Pop", "Var1", "Test")
    )
  )
  
  server&lt;-shinyServer(function(input, output) {
  
  
  })
  
  
  shinyApp(ui,server)
  </code></pre>