ReadACT_new <- function (file = "fileName", year = "19-20", blanks = F, 
          scores_only = T) 
{
  df <- GetMapping(year)
  if (!is.data.frame(df)) {
    stop("Given Mapping isn't a dataframe. Have you entered the year correctly?")
  }
  temp <- read.fwf(file = file, widths = df$widthsACT, col.names = df$namesACT, comment.char="")
  if (blanks) {
    return(temp)
  }
  temp <- temp %>% select(-(starts_with("blank")))
  if (scores_only) {
    temp <- temp %>% select(lastName, firstName, dateOfBirth, 
                            stateID, testDate, composite = scaleComposite, english = scaleEnglish, 
                            mathmatics = scaleMath, reading = scaleReading, science = scaleScience, 
                            `writing subscore` = scoreWR)
  }
  return(temp)
}