我正在尝试编写一个
JavaScript函数来扩展R闪亮的
action button demo.我希望用户能够输入一个数字,只要点击操作按钮,并通过点击输入,当他们选择了数字输入表单. ui.R的代码是:
- shinyUI(pageWithSidebar(
- headerPanel("actionButton test"),sidebarPanel(
- tags$head(tags$script(src = "enter_button.js")),numericInput("number","N:",min = 0,max = 100,value = 50),br(),actionButton("goButton","Go!"),p("Click the button to update the value displayed in the main panel.")
- ),mainPanel(
- verbatimTextOutput("nText")
- )
- ))
和server.R:
- shinyServer(function(input,output) {
- ntext <- eventReactive(input$goButton,{
- input$number
- })
- output$nText <- renderText({
- paste(ntext(),input$goButton)
- })
- })
我在www /文件夹中的一个名为enter_button.js的文件中包含以下javascript:
- $("#number").keyup(function(event){
- if(event.keyCode == 13){
- $("#goButton").click();
- }
- });
但是,当我运行应用程序时,选择号码输入表单,然后点击进入操作按钮不增加,但如果点击它,它会增加.或者,我也测试了,只需点击进入文档的任何地方:
- $(document).keyup(function(event){
- if(event.keyCode == 13){
- $("#goButton").click();
- }
- });
所以我的怀疑是jQuery找不到#number元素.提前致谢!