R Shiny: An textInput that only gets invalidated upon losing focus

shiny::runGist("7150112")