user_metrics/apps/flow/dynamicWidget/app.R
gnomadic c54bcfc559
Dynamic Integration for Flow (#19)
* first start

* dynamic button works and posts to server, but gotta clean up

* Cleanup

* updating keys and last round of cleanup

* package bundle

* removing unused yarn files
2023-03-07 12:01:41 -05:00

17 lines
318 B
R

library(shiny)
library(dynamicWidget)
ui <- fluidPage(
titlePanel("reactR Input Example"),
dynamic_buttonInput("textInput"),
textOutput("textOutput")
)
server <- function(input, output, session) {
output$textOutput <- renderText({
sprintf("You entered: %s", input$textInput)
})
}
shinyApp(ui, server)