context("Initializing a Survey")
org <- data.frame("Q1" = c("Example 1", "Example 2"), "Score" = c(9, 8), stringsAsFactors = FALSE)
sav <- seamless::read_data(system.file("extdata", "sample.sav", package = "reporttoolDT"))
# Initialize -------------------------------------------------------------------
test_that("We can initialize from data.frame", {
df <- survey_df(org)
expect_s3_class(df, "Survey")
expect_equal(df, survey(org))
})
test_that("We can initialize from data.table", {
dt <- survey_dt(org)
expect_s3_class(dt, "Survey")
expect_equal(dt, survey(data.table::as.data.table(org)))
})
test_that("We can initialize from tbl (dplyr)", {
skip_if_not_installed("dplyr")
tbl <- survey_tbl(org)
expect_s3_class(tbl, "Survey")
expect_equal(tbl, survey(dplyr::as.tbl(org)))
})
test_that("Initializing on a Survey returns the Survey", {
df <- survey_df(org)
dt <- survey_dt(org)
tbl <- survey_tbl(org)
expect_equal(survey_df(df), df)
expect_equal(survey_dt(dt), dt)
expect_equal(survey_tbl(tbl), tbl)
})
test_that("We can initialize a Survey using as.survey", {
df <- as.survey(org)
expect_s3_class(df, "Survey")
expect_identical(as.survey(df), df)
})
test_that("We can initialize a Survey using survey()", {
df <- survey(org)
expect_s3_class(df, "Survey")
expect_identical(survey(df), df) # survey(survey()) returns survey.
})
# Initialize w/labels ----------------------------------------------------------
test_that("We can initialize with Survey_df with labels", {
df <- survey_df(sav)
expect_s3_class(df, "Survey")
labels <- df$get_label()
expect_identical(labels[!is.na(labels)], unlist(lapply(sav, attr, "label")))
})
test_that("We can initialize with Survey_dt with labels", {
dt <- survey_dt(sav)
expect_s3_class(dt, "Survey")
labels <- dt$get_label()
expect_identical(labels[!is.na(labels)], unlist(lapply(sav, attr, "label")))
})
test_that("We can initialize with Survey_tbl with labels", {
skip_if_not_installed("dplyr")
tbl <- survey_tbl(sav)
expect_s3_class(tbl, "Survey")
labels <- tbl$get_label()
expect_identical(labels[!is.na(labels)], unlist(lapply(sav, attr, "label")))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.