如何在闪亮的提交按钮上隐藏表单？

Question

我创造了一个闪亮的绝对面板。我在提交按钮和selectInput窗格上创建了​​。

    selectInput("Customer", "Customer",groupcustomer),
            submitButton("Submit",icon("refresh"))

上面的代码是div标签。我想崩溃，即在submitButton上隐藏特定div或隐藏表单。我怎么能这样做？

Answer 1

以下将在按下提交按钮时切换隐藏输入表单：

library(shiny)
library(shinyjs)

ui <- basicPage(
    useShinyjs(),
    tags$div(id="hideme",
             selectInput("Customer", "Customer", c("bill","bob","bozo"))
             ),
    actionButton("doSubmit", "Submit", icon("refresh"),
                 style="color: #fff; background-color: #337ab7; border-color: #2e6da4")
)

server <- function(input, output) {
    observeEvent(input$doSubmit, {
        toggle("hideme")
    })
}

shinyApp(ui, server)

它根据帮助页面中的建议用actionButton替换submitButton，并复制submitButton的样式。

  

通常不鼓励使用submitButton来支持更多功能的actionButton（详见下文）。