return key trigger actionButton click in shiny example

app.R

library(shiny)

ui <- fluidPage(
  
  tags$head(includeScript("returnClick.js")),

  textInput("myText", "", placeholder = "Enter text then hit return", width = "100%"),
  actionButton("myButton", "Go!"),
  verbatimTextOutput("textOutput")
  
)

server <- function(input, output, session) {
  
  output$textOutput <- renderText({
    
    input$myButton # take a dependency on the button click
    
    # isolate text input to only re-render when button is clicked
    isolate(input$myText) 
  })
  
}

shinyApp(ui, server)

returnClick.js

$(document).keyup(function(event) {
    if ($("#myText").is(":focus") && (event.keyCode == 13)) {
        $("#myButton").click();
    }
});