dev/shiny-classic-options/ui.R

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

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


secure_app(
  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')
    )

  ),
  tag_img = tags$img(src = "https://www.r-project.org/logo/Rlogo.png", width = 100),
  enable_admin = TRUE,
  language = "fr", choose_language = T
)