R 按两次按钮?

R 按两次按钮?,r,shiny,R,Shiny,在我的服务器中,我有 在我的index.html中 我的问题是,为什么在检测到按钮按下之前,我需要至少按下两次按钮?我如何编辑代码以便只按一个按钮 你不能改用吗?第二次单击后,进一步单击也无法通知服务器。相同的结果。需要按两次按钮。对我有效。发布语法?替换“不使用提交”按钮。这在闪亮的绑定下声明了提交按钮,而不是操作按钮,如本文所述。包含“提交”按钮的表单在输入更改时不会自动更新其输出,而是等待用户明确单击“提交”按钮,然后单击两次。 library (shiny) shinyServer (

在我的服务器中,我有

在我的index.html中


我的问题是,为什么在检测到按钮按下之前,我需要至少按下两次按钮?我如何编辑代码以便只按一个按钮

你不能改用吗?第二次单击后,进一步单击也无法通知服务器。相同的结果。需要按两次按钮。对我有效。发布语法?替换“不使用提交”按钮。这在闪亮的绑定下声明了提交按钮,而不是操作按钮,如本文所述。包含“提交”按钮的表单在输入更改时不会自动更新其输出,而是等待用户明确单击“提交”按钮,然后单击两次。
library (shiny)

shinyServer (function (input, output, session)
{
    values <- reactiveValues()      # create a reactiveValues object, to let us use settable reactive values
    values$lastAction <- NULL       # to start out, lastAction == NULL, meaning nothing clicked yet

    # an observe block for each button, to record that the action happened
    observe ({
        if (input$runButton != 0) {
            values$lastAction <- 'run'
        }
    });

    observe ({

        # make sure we have data
        if (is.null (values$lastAction))
            return (NULL);

        print ("Detected button Press");
    });

})
<html>
    <head>
        <title>Structural Variant (SV) Analysis</title>
        <script type="text/javascript" src="shared/jquery.js"></script>
        <script type="text/javascript" src="shared/shiny.js"></script>
        <link rel="stylesheet" type="text/css" href="shared/shiny.css"/> 
        <style>
            body { font-family: Helvetica, Arial, sans-serif; }
        </style>
    </head>

    <body>
        <br>
        <form action="">
            <div><input id="runButton" type="submit" name="submit" value="Press me!" class="button action-button"></div>
        </form>
        <br>
    </body>
</html>