R actionButton在闪亮模式下不工作

我在我闪亮的应用程序中设置了2个actionButton，将用户输入插入数据库并从数据库中删除一条记录

mainPanel(
                            tabsetPanel(type = "tabs", 
                                    tabPanel("Phase1",
                                            column(4,uiOutput("Phase1", inline = FALSE),
                                                    wellPanel(
                                                            actionButton("P1_Add", "Add",icon=icon("plus-circle")),
                                                            actionButton("P1_Del", "Del",icon=icon("minus-circle"))
                                                                )),
                                            column(6,h1("Phase1 Input data is put here"),dataTableOutput("Phase1_Data"))

                                            ), 
                                    tabPanel("Phase2",uiOutput("Phase2",inline=FALSE)), 
                                    tabPanel("Phase3")
                            )
                    )

我还在server.R中定义了一个observe来响应我的点击。但似乎不起作用

            obs_p1_add<-observe({

                    if(input$P1_Add)
                    {
                        cat("just click add button")
                        cat("test")
                        print (input$P1_Add)
                        output$Phase2<-  renderUI({ 
                                list(h4("ha! change"))
                                })

                    }

                })

---

obs\u p1\u add你的代码适合我

ui.R：

服务器.R:

library(shiny)

shinyServer(function(input, output) {

  obs_p1_add<-observe({

    if(input$P1_Add)
    {
      cat("just click add button")
      cat("test")
      print (input$P1_Add)
      output$Phase2<-  renderUI({ 
        list(h4("ha! change"))
      })

    }

  })

})

库（闪亮）
shinyServer（功能（输入、输出）{
obs_p1_addhi Johannes，你的R和Shining版本是什么？谢谢！R版本3.1.1，Shining 0.10.2.1，firefox 36.0.1谢谢！代码在我重新安装R和Shining后生效。我会接受答案。祝你愉快。很好！你能点击我答案旁边的复选标记吗？这表明你的问题已经解决。谢谢！
library(shiny)

shinyServer(function(input, output) {

  obs_p1_add<-observe({

    if(input$P1_Add)
    {
      cat("just click add button")
      cat("test")
      print (input$P1_Add)
      output$Phase2<-  renderUI({ 
        list(h4("ha! change"))
      })

    }

  })

})