DataCamp Light


                    library(googlesheets)
                    data <- gs_read(gs_url("https://docs.google.com/spreadsheets/d/1ufuzTL9VCxdvX1QeFQcMGxYbEMq1ZEWVht3CEDpXBmc/edit?usp=sharing"))
        
                    data <- as.data.frame(data)
                    colnames(data) <- c("DateTime", "Token", "Score")
                    data <- data[which(!is.na(data$DateTime)),]
                    score <- function(token) {
                        i <- which(data$Token==token)
                        data[i,]
                    }


                    # Put Token in "". Ex: score("abcde123")
                    score("Enter_your_Token")