# UI ==========================================================================

textModalInput = function(id) {
  ns <- NS(id)

  tagList(
    textInput(ns("txt"), "Write something")
  )
}

# Server ======================================================================

textModalServer = function(input, output, session) {
  mytext <- reactive({
    input$txt
  })
  return(mytext)
}