derekpowell/read_qualtrics_csv.R

## read_qualtrics_csv.R
read_qualtrics_csv <- function(fname) {
  headers <- as.matrix(read.csv(fname, skip = 0, header = F, nrows = 1, as.is = T))
  df <- read_csv(fname, skip = 3, col_names = headers)

  df <- df %>%
    filter(DistributionChannel=="anonymous")

  return(df)
}
	read_qualtrics_csv <- function(fname) {
	headers <- as.matrix(read.csv(fname, skip = 0, header = F, nrows = 1, as.is = T))
	df <- read_csv(fname, skip = 3, col_names = headers)

	df <- df %>%
	filter(DistributionChannel=="anonymous")

	return(df)
	}