ページの読み込み時にシャープなsubmitButtonの動作

Question

[送信]ボタンは便利ですが、最初のページの読み込み時に出力を抑制するエレガントな方法が見つかりませんでした。

例えば、Shinyチュートリアルでは、ロード時に出力がレンダリングされます。
http://rstudio.github.com/shiny/tutorial/#more-widgets

送信ボタンが押されるまで反応機能が呼び出されないようにするにはどうすればよいですか？

ここに、上にリンクされた例のコードインラインがあります。

#ui.R 
library(shiny) 

# Define UI for dataset viewer application 
shinyUI(pageWithSidebar(

    # Application title. 
    headerPanel("More Widgets"), 

    # Sidebar with controls to select a dataset and specify the number 
    # of observations to view. The helpText function is also used to 
    # include clarifying text. Most notably, the inclusion of a 
    # submitButton defers the rendering of output until the user 
    # explicitly clicks the button (rather than doing it immediately 
    # when inputs change). This is useful if the computations required 
    # to render output are inordinately time-consuming. 
    sidebarPanel(
    selectInput("dataset", "Choose a dataset:", 
       choices = c("rock", "pressure", "cars")), 

    numericInput("obs", "Number of observations to view:", 10), 

    helpText("Note: while the data view will show only the specified", 
      "number of observations, the summary will still be based", 
      "on the full dataset."), 

    submitButton("Update View") 
), 

    # Show a summary of the dataset and an HTML table with the requested 
    # number of observations. Note the use of the h4 function to provide 
    # an additional header above each output section. 
    mainPanel(
    h4("Summary"), 
    verbatimTextOutput("summary"), 

    h4("Observations"), 
    tableOutput("view") 
) 
)) 



#server.R 
library(shiny) 
library(datasets) 

# Define server logic required to summarize and view the selected dataset 
shinyServer(function(input, output) { 

    # Return the requested dataset 
    datasetInput <- reactive({ 
    switch(input$dataset, 
      "rock" = rock, 
      "pressure" = pressure, 
      "cars" = cars) 
    }) 

    # Generate a summary of the dataset 
    output$summary <- renderPrint({ 
    dataset <- datasetInput() 
    summary(dataset) 
    }) 

    # Show the first "n" observations 
    output$view <- renderTable({ 
    head(datasetInput(), n = input$obs) 
    }) 
}) 

Answer 1

一つの方法actionButton（shiny-incubatorパッケージから）とisolateを使用することです。 Here's 2つを一緒に使用する方法を説明する記事を書きます。これは本質的により柔軟なアプローチで、あまりにも重い手であり、十分に柔軟ではないsubmitButtonよりも優れています。

Answer 2

私は、テキストフィールドの入力のために同じ問題を抱えていたし、私の周り非常に汚い仕事を使用：

私は「please_type_stuff_here」のようなものに初期フィールド値を設定します。 server.Rではif節を使用して、何かが返されるかどうかを判断しました：