R/get_enrolled.R

In jonotuke/examMarking: code for exam marking

#' get enrolled
#' 
#' uses the grade roster to get enrolled students. 
#' 
#' @param file  grade roster
#'
#' @return tibble of enrolled
#' @export
#'
#' @examples
#' get_enrolled(file = "inst/grade_example.csv")
get_enrolled  <- function(file){
  # Read in the grade roster
  grade_roster  <- read_lines(file)
  n  <- length(grade_roster)
  data  <- grade_roster[8:n]  
  data  <- read_csv(data)
  data  <- data[, 1:4]
  return(data)
}