Read in data from Qualtrics to R (adapted from qualtrics R package - http://jason.bryer.org/qualtrics/)

gistfile1.txt

library(RCurl)
getSurveyResults <- function (username, 
    token, surveyid, truncNames = 20,
    Questions = NULL, 
    Labels = "1", 
    ExportTags = "1", 
    LocalTime = "1", 
    startDate = NULL, endDate = NULL) {

  url = paste(
      "https://survey.qualtrics.com/WRAPI/ControlPanel/api.php?Request=getLegacyResponseData&User=", 
      username,
      "&Token=", token,
      "&SurveyID=", surveyid,
      "&Version=2.0",
      "&Labels=", Labels, 
      "&ExportTags=", ExportTags,
      "&LocalTime=", LocalTime, 
      "&Format=CSV",
      sep = "")
  print(url)
  urlcontents <- getURL(url)
  urlcontents <- gsub("<ef><bb><bf>", "", urlcontents)
  urlcontents <- strsplit(urlcontents, "\\n")[[1]]
  dat <- read.csv(text=urlcontents[-1])
  dat$X = NULL
  dat
}