context("Survey tables")
sav <- seamless::read_data(system.file("extdata", "raw_data.sav", package = "reporttoolDT"))
srv <- survey_tbl(sav)$set_association(.common = TRUE)
# Merge attributes -------------------------------------------------------------
test_that("qtable_ method for survey", {
out <- tabulR::qtable_(srv, vars = "q17", groups = "q1", wide = TRUE)
expect_identical(names(out)[1L], "q1 - Supplier")
expect_identical(out$n, c(10L, 5L, 5L, 20L))
expect_identical(out$Nei, c(.9, .8, .8, .85))
})
test_that("qtable works with survey", {
skip_if_not_installed("dplyr")
nse <- srv %>% dplyr::group_by(q1) %>% tabulR::qtable(q17, wide = TRUE)
ref <- tabulR::qtable_(srv, vars = "q17", groups = "q1", wide = TRUE)
expect_identical(nse, ref)
})
test_that("manifest table for survey", {
out <- srv
out[["q3EM"]] <- rescale_100(clean_scale(out[["q3"]]))
out <- manifest_table(out)
expect_identical(round(out$q3, digits = 1L), 75.6)
})
test_that("latent table for survey", {
out <- srv
out[["epsi"]] <- 100L
out <- latent_table(out)
expect_identical(out$epsi, 100)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.