0byt3m1n1
Path:
C:
/
Program Files
/
R
/
R-4.2.2
/
library
/
shiny
/
app_template
/
R
/
[
Home
]
File: example-module.R
exampleModuleUI <- function(id, label = "Counter") { # All uses of Shiny input/output IDs in the UI must be namespaced, # as in ns("x"). ns <- NS(id) tagList( actionButton(ns("button"), label = label), verbatimTextOutput(ns("out")) ) } exampleModuleServer <- function(id) { # moduleServer() wraps a function to create the server component of a # module. moduleServer( id, function(input, output, session) { count <- reactiveVal(0) observeEvent(input$button, { count(count() + 1) }) output$out <- renderText({ count() }) count } ) }