R/read_qualtrics_csv.R

In samuelfranssens/rlibrary: library with functions that I often use

#' Read Qualtrics data CSV files
#'
#' @param filename filename (include .csv extension)
#' @keywords taskmaster
#' @export
#' @examples
#' read_qualtrics_csv("dataset.csv")

read_qualtrics_csv <- function(filename){

  variable_names <- read_csv(filename) %>%
    names() %>%
    tolower() %>%
    gsub(" ","_",.) %>%
    gsub("duration_\\(in_seconds\\)", "duration", .)

  read_csv(filename, skip = 3, col_names = FALSE) %>%
    magrittr::set_names(variable_names) %>%
    select(-tolower(c("IPAddress", "Progress", "RecordedDate", "ResponseId", "RecipientLastName", "RecipientFirstName", "RecipientEmail", "ExternalReference", "DistributionChannel", "UserLanguage")))
}