User_Validation <- reactiveValues()

  observeEvent(input$LogInButton, {
    User_Validation$account <- grep(input$Account, User_Information()$UserName)
    if (length(User_Validation$account) > 0) {
      User_Validation$password <- input$passkey ==
        User_Information()[User_Validation$account, Password]
    } else {
      output$WarningMessage <- renderText({
        "Invalid account"
      })
    }
  })

  observeEvent(input$LogInButton, {
    if (User_Validation$password == TRUE) {
      output$DashBoard_Info <- renderUI({
      fluidRow(
        box(title = "Commodity_Sales_Ranking",
            tableOutput("Commodity_Ranking")),
        box(title = "Revenue_by_Month",
            plotlyOutput("Monthly_Revenue"))
      )
      fluidRow(
        box(title = "Replenishing_Rate_by_Month",
            plotlyOutput("Replenishing_Rate")),
        box(title = "Customer_Age_Piechart",
            plotlyOutput("Age_Piechart"))
      )
    })
    }
  })