Function read data from a Qualtrics-generated CSV file

read.qualtrics.csv.R

read.qualtrics.csv <- function(filename, stringsAsFactors = FALSE, ...) {
    n <- read.csv(filename, nrows = 1, stringsAsFactors = FALSE)
    dat <- read.csv(filename, header = FALSE, skip = 2, stringsAsFactors = stringsAsFactors, ...)
    names(dat) <- names(n)
    names(dat)[1:10] <- n[1,1:10]
    for(i in seq_along(dat)) {
        attr(dat[,i], "question") <- n[1,i]
    }
    dat
}