examples/demo/ui.R

In datastorm-open/shinymanager: Authentication Management for 'Shiny' Applications

# UI ----------------------------------------------------------------------

ui <- fluidPage(

  # classic app
  headerPanel('Iris k-means clustering'),
  sidebarPanel(
    selectInput('xcol', 'X Variable', names(iris)),
    selectInput('ycol', 'Y Variable', names(iris),
                selected=names(iris)[[2]]),
    numericInput('clusters', 'Cluster count', 3,
                 min = 1, max = 9)
  ),
  mainPanel(
    plotOutput('plot1'),
    verbatimTextOutput("res_auth")
  )

)

# Call UI inside secure_app()
secure_app(
  ui = ui,
  enable_admin = TRUE,
  language = "fr",
  choose_language = c("en")
)