title: R Shiny: How to pass reactive variables between nested modules
body: <p>I have created a toy example in which a textInput() box pops up for the user to input any string, and by clicking the add button, a selectInput() box pops up with the letters a:d prepended with the string.  In other words, if the user inputs "1", then by clicking the "add" button, a selectInput() box pops up with 1a, 1b, 1c, and 1d as choices.  I am using a module for the add/remove button functionality, and that module calls another module to generate the selectInput() box.  The main server function calls the add/remove module, which calls the "first" module, which generates the selectInput() box.  I pass a() as a reactive element to add/remove module, which in turn passes this on to "first" module.  I just used "..." in the function signature of both the add/remove module and the "first" module to get a() to the nested module.  </p>
  
  <p>This seems to work, although a() seems to not be reactive by the time it gets to "first" module, meaning that if I type a different string in the "a" box, I would expect that the choices in the selectInput() box to change dynamically, or at least when I change the textInput() string and click "add", the new selectInput() should reflect the updated textInput() string, but this does not happen.  What will make the selectInput() choices change dynamically with changes to textInput()?  Code below, thanks!</p>
  
  <pre><code>library(shiny)
  
  firstUI &lt;- function(id) { uiOutput(NS(id, "first")) }
  
  firstServer &lt;- function(input, output, session, a) {
  
      output$first &lt;- renderUI({
          selectInput(session$ns("select"), h4("Select"), paste0(a,letters[1:4]))
      })
  }
  
  removeFirstUI &lt;- function(id) {
      removeUI(selector = paste0('#', NS(id, "first")))
  }
  
  addRmBtnUI &lt;- function(id) {
      ns &lt;- NS(id)
  
      tags$div(
      actionButton(inputId = ns('insertParamBtn'), label = "Add"),
      actionButton(ns('removeParamBtn'), label = "Remove"),
      hr(),
      tags$div(id = ns('placeholder'))
    )
  }
  
  addRmBtnServer &lt;- function(input, output, session, moduleToReplicate,...) {
      ns = session$ns
  
      params &lt;- reactiveValues(btn = 0)
  
      observeEvent(input$insertParamBtn, {
          params$btn &lt;- params$btn + 1
  
          callModule(moduleToReplicate$server, id = params$btn, ...)
          insertUI(
        selector = paste0('#', ns('placeholder')),
        ui = moduleToReplicate$ui(ns(params$btn))
      )
      })
  
      observeEvent(input$removeParamBtn, {
          moduleToReplicate$remover(ns(params$btn))
          params$btn &lt;- params$btn - 1
      })
  }
  
  ui &lt;- fluidPage(
            addRmBtnUI("addRm"),
            textInput("a", label = "a", value = 1, width = '150px') )
  
  server &lt;- function(input, output, session) {
  
  
      a &lt;- reactive({ input$a })
      callModule(
      addRmBtnServer, id = "addRm",
      moduleToReplicate = list(
        ui = firstUI,
        server = firstServer,
        remover = removeFirstUI
      ), a = a()
    )
  }
  
  shinyApp(ui = ui, server = server)
  </code></pre>