## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)

## ----eval=FALSE---------------------------------------------------------------
#  library(qualtRics)
#  
#  qualtrics_api_credentials(api_key = "<YOUR-QUALTRICS_API_KEY>",
#                            base_url = "<YOUR-QUALTRICS_BASE_URL>",
#                            install = TRUE)

## ----eval=FALSE---------------------------------------------------------------
#  surveys <- all_surveys()

## ----eval=FALSE---------------------------------------------------------------
#  mysurvey <- fetch_survey(surveyID = surveys$id[6],
#                           verbose = TRUE)

## ----eval=FALSE---------------------------------------------------------------
#  mysurvey <- fetch_survey(surveys$id[4],
#                           start_date = "2018-10-01",
#                           end_date = "2018-10-31",
#                           label = FALSE)

## ----eval=FALSE---------------------------------------------------------------
#  mysurvey <- fetch_survey(surveys$id[4],
#                           last_response = "R_3mmovCIeMllvsER",
#                           label = FALSE,
#                           verbose = TRUE)

## ----eval=FALSE---------------------------------------------------------------
#  # what are the questions in a certain survey?
#  questions <- survey_questions(surveyID = surveys$id[6])
#  
#  # download that survey, filtering for only certain questions
#  mysurvey <- fetch_survey(surveyID = surveys$id[6],
#                           save_dir = tempdir(),
#                           include_questions = c("QID1", "QID2", "QID3"),
#                           verbose = TRUE)

## ----eval=FALSE---------------------------------------------------------------
#  mysurvey <- fetch_survey(surveyID = surveys$id[6],
#                           save_dir = "/users/Julia/Desktop/",
#                           verbose = TRUE)

## ----eval=FALSE---------------------------------------------------------------
#  mysurvey <- readRDS(file = "/users/Julia/Desktop/mysurvey.rds")

## ----eval=FALSE---------------------------------------------------------------
#  mysurvey <- read_survey("/users/Julia/Desktop/mysurvey.csv")

## ----echo=FALSE, out.width="80%"----------------------------------------------
knitr::include_graphics("qualtricsdf.png")