R shinyをイベント処理のための外部javascriptファイルと併用する

Question

外部のJavaScriptが含まれるR Shinyアプリケーションを作成しようとしています。初心者の方には、このjavascriptは入力のプレスだけを検出し、そのボタンのクリックをシミュレートする必要があります。 テキストが入力されていると送信ボタンが同じテキストを出力することをクリックしたときにどこシャイニーインターフェースは次のようになります。

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ファイルが入るボタンの押下をリスニングとのクリックとしてこれをシミュレート送信ボタン。事前

Answer 1

ネヴァーマインドで

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

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

おかげで、スクリプトのタイプミスがありました。 jQuery('#entry').keypress(...)はjQuery('#text').keypress(..)