28 lines
623 B
R
28 lines
623 B
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
|
||
|
|
}
|
||
|
|
)
|
||
|
|
}
|