inst/shiny/shinyjs-practice-som.R

In sbohora/Somya: Some outstanding magics you'd appreciate (Somya)

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)