library(shiny)
library(shinyjs)
ui <- fluidPage(
useShinyjs(),
hidden(
div(
id = "reset_form",
textInput("name", "Name", "Dean"),
numericInput("age", "Age", 27),
checkboxInput("terms", "I agree", FALSE),
actionButton("submit", "Submit"),
actionButton("reset", "Reset Form")
# actionButton("btn", "Click me"),
# hidden(
# p(id = "element", "I was born invisible")
#
# )
)
),
actionButton("hi", "Show")
)
server <- function(input, output, session){
observe({
toggleState("submit", condition = input$terms)
})
observeEvent(input$hi, {
show("reset_form")
})
observeEvent(input$submit, {
alert("Thank You!")
})
observeEvent(input$reset, {
reset("reset_form")
})
}
shinyApp(ui = ui, server = server)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.