R 按钮值作为条件面板中的条件

我有一个表单，一旦全部执行，就会有一个“完成”按钮。一旦用户点击“完成”按钮，我想显示一个shinydashboard，而不是表单

为此，我考虑了两个条件面板，因为按钮有一个值，如果该值为0，则显示窗体，否则显示shinydashboard。我的问题是，这个条件不起作用

整个代码太大，无法复制，因此主要思想如下：

#server.R

library(shiny)

shinyServer(function(input, output) {

  output$frontEnd <- renderUI(
    fluidPage(
      input$buton,
      conditionalPanel("input$buton == 0",p("I'm a form")),
      conditionalPanel("input$buton > 0", p("I'm a dashboard"))
    )
  )
})



#UI.r
library(shiny)

shinyUI(fluidPage(

  # Application title
  actionButton("buton","click me"),
  htmlOutput("frontEnd")
))

#server.R
图书馆（闪亮）
shinyServer（功能（输入、输出）{
输出$frontEnd尝试：

条件参数是一个

conditionalPanel(condition = "input.buton == 0", p("I'm a form")),
conditionalPanel(condition = "input.buton > 0", p("I'm a dashboard"))