Skip to content

Instantly share code, notes, and snippets.

@hadley
Created December 11, 2014 21:59
Show Gist options
  • Save hadley/17f15cdac73acf8931a3 to your computer and use it in GitHub Desktop.
Save hadley/17f15cdac73acf8931a3 to your computer and use it in GitHub Desktop.
library("shiny")
x <- runApp(shinyApp(
fluidPage(
"Password:",
tags$input(id = "password", type = "password"),
actionButton("done", "Done")
),
function(input, output) {
observe({
input$done
if (input$done > 0)
stopApp(isolate(input$password))
})
}
))
x
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment