shinyで、observeEventをクリックすると動作しますが、データを更新した場合（すなわち二回目以降）はクリックしなくても動作してしまします。毎回、observeeventをクリックした場合にのみ動作するようにするる方法を教えていただきたいです。以下のコードの場合、最初observeeventをクリックするとヒストグラムが正常に表示されますが、スライドバーを動かすとobserveEventをクリックしていないにも関わらずヒストグラムが更新されてしまいます。必ずobserveeventをクリックしたときのみ、表示が更新されるようにする方法を教えてください。```library(shiny)

Define UI for application that draws a histogram

shinyUI(fluidPage(

Application title

titlePanel("Old Faithful Geyser Data"),

Sidebar with a slider input for number of bins

sidebarLayout(
sidebarPanel(
sliderInput("bins",
"Number of bins:",
min = 1,
max = 50,
value = 30)
),

# Show a plot of the generated distribution
mainPanel(
  actionButton("TrainModel","Compute",width=300),
   plotOutput("distPlot")
)

)
))

library(shiny)

Define server logic required to draw a histogram

shinyServer(function(input, output) {
observeEvent(input$TrainModel,{
output$distPlot <- renderPlot({

# generate bins based on input$bins from ui.R
x    <- faithful[, 2] 
bins <- seq(min(x), max(x), length.out = input$bins + 1)

# draw the histogram with the specified number of bins
hist(x, breaks = bins, col = 'darkgray', border = 'white')

})
})

})
コード