Nothing
## ---- include = FALSE---------------------------------------------------------
options(rmarkdown.html_vignette.check_title = FALSE)
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----setup--------------------------------------------------------------------
library(excluder)
## -----------------------------------------------------------------------------
dplyr::glimpse(qualtrics_raw)
#
# Remove label rows and coerce metadata columns
df <- remove_label_rows(qualtrics_raw) %>%
dplyr::glimpse()
## ----mark1--------------------------------------------------------------------
# Mark observations run as preview
df %>%
mark_preview() %>%
dplyr::glimpse()
## ----mark2--------------------------------------------------------------------
# Mark preview and incomplete observations
df %>%
mark_preview() %>%
mark_progress() %>%
dplyr::glimpse()
## ----mark3--------------------------------------------------------------------
df %>%
mark_preview() %>%
mark_duration(min = 500) %>%
unite_exclusions() %>%
dplyr::relocate(exclusions, .before = StartDate)
## ----mark4--------------------------------------------------------------------
df %>%
mark_preview() %>%
mark_duration(min = 500) %>%
unite_exclusions(separator = ";", remove = FALSE) %>%
dplyr::relocate(exclusions, .before = StartDate)
## ----check1-------------------------------------------------------------------
# Check for rows with incomplete data
df %>%
check_progress()
## ----check2-------------------------------------------------------------------
# Check for rows with durations less than 100 seconds
df %>%
check_duration(min_duration = 100)
## ----check3-------------------------------------------------------------------
# Check for rows with durations less than 100 seconds in rows that did not complete the survey
df %>%
check_progress() %>%
check_duration(min_duration = 100)
## ----mark_check---------------------------------------------------------------
# Check for multiple criteria
df %>%
mark_preview() %>%
mark_duration(min = 500) %>%
unite_exclusions() %>%
dplyr::filter(exclusions != "")
## ----exclude1-----------------------------------------------------------------
# Exclude survey responses used to preview the survey
df %>%
exclude_preview() %>%
dplyr::glimpse()
## ----exclude2-----------------------------------------------------------------
# Exclude preview then incomplete progress rows then duplicate locations and IP addresses
df %>%
exclude_preview() %>%
exclude_progress() %>%
exclude_duplicates(print = FALSE)
## ----quiet--------------------------------------------------------------------
# Turn off marking/checking messages with quiet = TRUE
df %>%
check_progress(quiet = TRUE)
## ----silent-------------------------------------------------------------------
# Turn off exclusion messages with silent = TRUE
df %>%
exclude_preview(silent = TRUE) %>%
exclude_progress(silent = TRUE) %>%
exclude_duplicates(silent = TRUE)
## ----printoff-----------------------------------------------------------------
# Turn off marking/checking printing data frame with print = FALSE
df %>%
check_progress(print = FALSE)
## ----deidentify1--------------------------------------------------------------
# Exclude preview then incomplete progress rows
df %>%
exclude_preview() %>%
exclude_progress() %>%
exclude_duplicates() %>%
deidentify() %>%
dplyr::glimpse()
## ----deidentify2--------------------------------------------------------------
# Exclude preview then incomplete progress rows
df %>%
exclude_preview() %>%
exclude_progress() %>%
exclude_duplicates() %>%
deidentify(strict = FALSE) %>%
dplyr::glimpse()
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.