#' 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")))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.