Shiny login trial

ui.R

ui_login <- function() {
  fluidRow(
    tags$head(tags$style(HTML(".container-fluid {margin: 25px;}"))),
    column(2, offset = 5,
           div(id = "login_div",
               wellPanel(
                 h4("LOGIN"),
                 textInput("username", "User name"),
                 passwordInput("password", "Password"),
                 br(),
                 actionButton("login", "Log in", icon = icon("user"))
               )
           )
    )
  )
}

ui_main <- function() {
  fluidRow(
    column(2, offset = 5,
           wellPanel(h1("Hello!"))
    )
  )
}

ui <- (htmlOutput("page"))