R code to answer stackoverflow question https://stackoverflow.com/q/52610894/3135417

manipulate_weird_file.R

# persons.txt
# Person 1
# Class        Grade
# Math         A
# Science      C
# English      A
# Person 2
# Class       Grade
# Math        D
# English     A

manipulate_file_data <- function(filename) {
  person_text <- readChar(filename, file.info(filename)$size)
  persons <- strsplit(person_text, split = '\\n(?=Person\\s\\d)', perl = T)
  do.call(rbind, lapply(persons, function(chr) {
    chr <- unlist(strsplit(chr, split = '(?<=Person\\s\\d)\\n', perl = T))
    chr[2] <- gsub('\\s{2,}', ',', chr[2])
    df <- read.csv(textConnection(chr[2]), header = T)
    cbind(data.frame(Name=chr[1]), df)
  }))
}

manipulate_file_data('persons.txt')