UserUiTest/app.R

In pydupont/esr.redcap.user.ui: ESR recap user UI

library(shiny)
library("esr.redcap.user.ui")
source("../R/eruu_modules.R")

ui <- fluidPage(
    titlePanel("User UI Test"),
    mainPanel(
        eruu_ui("user_login"),
        eruu_usertab_ui("user_account"),
        eruu_admintab_ui("user_admin")
    )
)

server <- function(input, output, session) {
    callModule(eruu_module, "user_login", "db_test.sqlite3")
    callModule(eruu_usertab_module, "user_account", "db_test.sqlite3")
    callModule(eruu_admintab_module, "user_admin", "db_test.sqlite3")
}


shinyApp(ui = ui, server = server)