R 如何在“提交”按钮上隐藏表单？

我已经创造了一个绝对面板在闪亮。我已经创建了“提交”按钮并选择“输入窗格”

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

---

上面的代码在div标签中。我想折叠，即在submitButton上隐藏特定的div或隐藏表单。如何执行此操作？

按下“提交”按钮时，以下操作将切换输入表单的隐藏：

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。请参阅下面的详细信息

---

作为一种可能的解决方案：observeEventinput$Submit，shinyjs:：runjs'$divToHide.toggle；'谢谢回复，我解决了这个问题，比如HTMLpaste，submitButtonUpdate视图，iconrefresh，顺便说一下，我们不能使用输入$submit，因为submit是闪亮的文本，而不是ID。我们不能在闪亮的文本中为SubmitButton提供ID。然后将其作为解决方案发布，并在可以的时候将其标记为正确。也许有一天会帮助别人。最好也作为一个完整的工作示例发布。