You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
36 lines
715 B
36 lines
715 B
4 years ago
|
#' shinyman UI Function
|
||
|
|
#'
|
||
|
|
#' @description A shiny Module.
|
||
|
|
#'
|
||
|
|
#' @param id,input,output,session Internal parameters for {shiny}.
|
||
|
|
#'
|
||
|
|
#' @noRd
|
||
|
|
#'
|
||
|
|
#' @importFrom shiny NS tagList
|
||
|
|
mod_shinyman_ui <- function(id){
|
||
|
|
ns <- NS(id)
|
||
|
|
tagList(
|
||
|
|
h1("golemshinymanager"),
|
||
|
|
verbatimTextOutput(ns("auth_output"))
|
||
|
|
)
|
||
|
|
}
|
||
|
|
|
||
|
|
#' shinyman Server Functions
|
||
|
|
#'
|
||
|
|
#' @noRd
|
||
|
|
mod_shinyman_server <- function(id,res_auth){
|
||
|
|
moduleServer( id, function(input, output, session){
|
||
|
|
ns <- session$ns
|
||
|
|
output$auth_output <- renderPrint({
|
||
|
|
reactiveValuesToList(res_auth)
|
||
|
|
})
|
||
|
|
|
||
|
|
})
|
||
|
|
}
|
||
|
|
|
||
|
|
## To be copied in the UI
|
||
|
|
# mod_shinyman_ui("shinyman_ui_1")
|
||
|
|
|
||
|
|
## To be copied in the server
|
||
|
|
# mod_shinyman_server("shinyman_ui_1")
|