derekpowell · October 19, 2021 20:31
diff --git a/read_qualtrics_csv.R b/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)
	}