Assign01Marker.R

# This file is used to mark stats220 assginment (checking html):
# To use this file, you need to install "tidy HTML" first in you system
# Create a project and add this file within same folder as your project
# All students submission I saved it into the subfolder "submission", if you don't use same folder name, please change it accordingly. 



# Read your student list
student.df <- read.csv("A1-marks-c-1.csv", header = TRUE, stringsAsFactors = FALSE)
# Get total student number
std.num<- nrow(student.df)


# Initialze the output dataframechro
mark.df <- data.frame(matrix(vector(), ncol = 9))
colnames(mark.df) <- names(student.df)


#Running through each student and enter the marks for them
for (i in 1:std.num){
  student<- student.df[i, ]
  studentname <- student[1]
  stdId <- student[2]
  
  cat("You are now marking ", as.character(studentname))
  
  #Use mac preview to check the apprearence
  previewcmd <- paste("qlmanage -p lab01error/*",stdId,"*", sep = "")
  system(previewcmd)
  
  # Enter appearence mark: 3 marks
  mark01 = as.numeric(readline(prompt = "Enter appearance marks (6 marks total) --> "))
  
  # Open student's file checking layout, please CHANGE THE FOLDER NAME, if you save submissions in different folder 
  opencmd <- paste("open ","lab01error/*",stdId,"*", sep = "")
  system(opencmd)
  
  ## Enter Css marks
  mark02 = as.numeric(readline(prompt = "Enter the Css controling repetition marks (2 marks total) --> "))
  
  # Enter indention mark: 3 marks
  mark03 =  as.numeric(readline(prompt = "Enter Indentation marks (3 marks total)--> ")) 
  
  ## Enter the validation marks 
  mark04 = student.df$Validation..2.marks.[i]
  
  #Enter comment marks: total 2 marks.
  mark05 = as.numeric(readline(prompt = "Enter comment marks (2 marks total) --> "))
  
  
  
  #Calculate the toal marks
  total = sum(mark01, mark02, mark03, mark04,mark05)
  
  # Add the marks into the csv file
  student[3:8] <- c(mark01, mark02, mark03, mark04, mark05, total)
  
  
  # Ask if the marker wants to add comments to the stuent
  comments <- readline(prompt = "Any comments for this student?  --> ")
  student[9] <- comments
  mark.df[i,] <- student
  print("Student is been marked, details as follows")
  print(mark.df[i,])
}


##Export your marks to csv file
write.table(mark.df, "/Users/Joy/Documents/UoA/A1-marks-c-1.csv", row.names = FALSE, sep = ",")