R Shiny: An textInput that only gets invalidated upon losing focus or when enter is pressed

shiny::runGist("7150112")