RStudio Shiny actionButton ignored

Question

server.R中的input$goButton是由actionButton触发的，应该是在RStudio Shiny中的if语句之内？在闪亮的网页的例子显示：

library(shiny) 
shinyUI(pageWithSidebar(
    headerPanel("Click the button"), 
    sidebarPanel(
    sliderInput("obs", "Number of observations:", 
       min = 0, max = 1000, value = 500), 
    actionButton("goButton", "Go!") 
), 
    mainPanel(
    plotOutput("distPlot") 
) 
)) 

和

library(shiny) 
shinyServer(function(input, output, message) { 
    output$distPlot <- renderPlot({ 
    # Take a dependency on input$goButton 
    input$goButton 

    # Use isolate() to avoid dependency on input$obs 
    dist <- isolate(rnorm(input$obs)) 
    hist(dist, main=isolate(paste(system(paste("echo", dist[1],"> /tmp/1 && md5sum /tmp/1"),intern=TRUE),collapse=''))) 
    }) 
}) 

我有一个稍微复杂的程序更语句上面的例子中，并在用户点击前的事件发生事件去按钮。这使得我认为input$goButton被忽略时，其中的一个语句是R system()调用。

Shiny Server v1.1.0.10000 
Node.js v0.10.21 
packageVersion: 0.10.0 

任何想法？

Answer 1

我这你想要什么？只要按下按钮，它会增加数+ 1（从0开始），因此有，如果有return()“一无所有”，如果它没有被按下

rm(list = ls()) 
library(shiny) 
runApp(list(ui = pageWithSidebar(
    headerPanel("Click the button"), 
    sidebarPanel(
    sliderInput("obs", "Number of observations:",min = 0, max = 1000, value = 500), 
    actionButton("goButton", "Go!") 
), 
    mainPanel(plotOutput("distPlot"))), 

    server = function(input, output,session) { 
    my_data <- reactive({ 
     if(input$goButton == 0) 
     { 
     return() 
     } 
     isolate({ 
     input$goButton 
     dist <- isolate(rnorm(input$obs)) 
     hist(dist, main=isolate(paste(system(paste("echo", dist[1],"> /tmp/1 && md5sum /tmp/1"),intern=TRUE),collapse=''))) 
     }) 
    }) 
    output$distPlot <- renderPlot({my_data() 
    }) 
    } 
) 
)