在外部javascript文件中使用R shiny进行事件处理

Question

我正在尝试创建一个包含外部javascript的R闪亮应用程序。作为一个新手，这个javascript现在应该只检测enter的按下并模拟那个按钮的点击。这个闪亮的界面看起来像这样，当文本被输入时，当点击发送按钮时，同样的文本被输出：

library(shiny)

# Define UI ----
ui <- fluidPage(

  includeScript("sendOnEnter.js"),

  titlePanel("GUI"),

  sidebarLayout(
    sidebarPanel(
      textInput("text",h3("Cmd"),value="Enter question"),
      actionButton("send", "Send"),
      width = 3
    ),

    mainPanel(
      textOutput("query")
    )
  )
)

# Define server logic ----
server <- function(input, output) {

  ntext <- eventReactive(input$send, {
            input$text
              })

  output$query <- renderText({ 
    ntext()

    })
}

# Run the app ----
shinyApp(ui = ui, server = server)

Javascript文件监听enter按钮的按下，并将其模拟为单击Send按钮；

jQuery(document).ready(function(){
  jQuery('#entry').keypress(function(evt){

    if (evt.keyCode == 13){
      // Enter, simulate clicking send
      jQuery('#send').click();
    }
  });
})

提前感谢