This is a gist to clean the spreadsheet containing grades for my students on Adobe Connect sessions

clean_adobe_connect_session_grading_data.R

library(tidyverse)
library(readxl)
library(stringr)



xl_data <- read_excel("Feedback_Job_Interview.xlsx")

col_names <- c("student", "date", "preparation", "fluency", "grammar", "vocabulary", "questions", "grade", "comments")
colnames(xl_data) <- col_names

xl_data <- xl_data[-1,]
new_data <- xl_data[-c(3,4,6,9,13,17),]
new_data <- new_data[3:7]

new_data[,1] <- as.numeric(unlist(new_data[,1]))
new_data[,2] <- as.numeric(unlist(new_data[,2]))
new_data[,3] <- as.numeric(unlist(new_data[,3]))
new_data[,4] <- as.numeric(unlist(new_data[,4]))
new_data[,5] <- as.numeric(unlist(new_data[,5]))

new_data <- mutate(new_data, total = preparation + fluency + grammar + vocabulary + questions)

new_data$total
as.numeric(xl_data$grade, na.rm = TRUE)
xl_data[7,]