app.R

library(shiny)
library(googlesheets)
library(shinyjs)
library(dplyr)
library(shinythemes)
library(shinydashboard)

# Connect to Google Sheet with Grades
gs_auth()
# Grading Sheet Key
sheet_key <- gs_key("1yZBck1ONc1EpR6g2dKBsQBYWIl2Dq2WtISbGdEUT_oE")
# Load passwords for name check
passwords <- gs_read(sheet_key, ws = 6)

# Define UI for application that draws a histogram
ui <- dashboardPage(skin = "green",
        dashboardHeader(
            title = "R Shiny for Operations Management Grade App"
        ),
        dashboardSidebar(
            useShinyjs(),
            # Login Div
            div(id = "auth",
                    textInput("andrewID",
                              "Andrew ID:",
                              placeholder = "Enter you Andrew ID"),
                    passwordInput("password",
                                  "Password:"),
                    disabled(actionButton("logIn", "Log In")),
                    div(style = "padding-left: 15px;", 
                        HTML('<a href="mailto:gla@andrew.cmu.edu&subject=Forgot%20Password">Forgot password?</a>')
                    )
            ),
            selectInput("assignment",
                        "View Grade for:",
                        choices = c("Course Grades", "Homework 1", "Project 1", "Homework 2", "Project 2"),
                        selected = "Homework 1")
            ),
        dashboardBody(
                fluidRow(
                    valueBoxOutput("gradeAverage")
                ),
                # Table with Grades
                fluidRow(
                    box(width = 12, 
                        DT::dataTableOutput("gradeTable"))
                )
            )
)

# Define server logic required to draw a histogram
server <- function(input, output) {
    # Set login to false and save passwords as reactive value
    values <- reactiveValues(login = FALSE, passwords = passwords)
    # Check if password fits
    observe({
        if (input$andrewID %in% values$passwords$`Andrew ID` & nchar(input$password) > 5 & grepl('[^[:alnum:]]', input$password, perl = TRUE)) {
            enable("logIn")
        } else {
            disable("logIn")
        }
    })
    # Store new password in google sheet
    observeEvent(input$create, {
        # grades <- grades()
        if (input$andrewID %in% values$passwords$`Andrew ID`) {
            row <- which(grades$`Andrew ID` == input$andrewID) + 1
            gs_edit_cells(sheet_key, ws = 6, anchor = paste0("B", row), input = input$passwordNew, byrow = TRUE)
            showNotification("You have succesfully created a Password", type = "message")
            # Read in New Password
            values$passwords <- gs_read(sheet_key, ws = 6)
            hide("createPass")
            show("login")
        } else {
            showNotification("Please enter a valid Andrew ID", type = "error")
            updateTextInput("passwordNew", value = "")
        }
    })
    # Authenticate Users
    observeEvent(input$logIn, {
        auth <- gs_read(sheet_key, ws = 6) %>%
            filter(`Andrew ID` == input$andrewID)
        values$login <- auth$Password == input$password
        if (values$login) {
            showNotification("You have successfully logged in!")
            hide("auth")
        } else {
            showNotification("Could not match username or password!", type = "error")
        }
    })
    grades <- reactive({
        grades <- gs_read(sheet_key, ws = input$assignment) %>%
            filter(!is.na(`Last Name`)) %>%
            mutate(`Final Grade` = as.numeric(`Final Grade`))
    })
    # Load Grade Sheet
    grade <- reactive({
        if (values$login) {
            grades() %>%
                filter(`Andrew ID` == input$andrewID)
        }
    })
    # Grade Average
    output$gradeAverage <- renderValueBox({
        value <- mean(grades()$`Final Grade`, na.rm = TRUE)
        subtitle <- paste("Avg for ", input$assignment)
        valueBox(value = round(value ,2), subtitle = subtitle, icon = icon("check-square"))
    })
    # Display grade
    output$gradeTable <- DT::renderDataTable({
        grade()
    }, extensions = 'Buttons', 
    rownames = FALSE,
    options = list(dom = 'Bt',
                   buttons = c('copy', 'csv', 'pdf')
                   )
    )
}

# Run the application 
shinyApp(ui = ui, server = server)