if (interactive()) library(testthat)
test_that("dplyr verbs retain surveydata class", {
skip_if_not_installed("dplyr")
require(dplyr, quietly = TRUE, warn.conflicts = FALSE)
expect_warning(membersurvey %>% as.tbl.surveydata(), "deprecated")
expect_s3_class(membersurvey %>% as_tibble(), "surveydata")
expect_s3_class(membersurvey %>% as_tibble() %>% mutate(id = 1), "surveydata")
expect_s3_class(membersurvey %>% as_tibble() %>% filter(Q2 == 2009), "surveydata")
expect_s3_class(membersurvey %>% as_tibble() %>% slice(1), "surveydata")
expect_s3_class(membersurvey %>% as_tibble() %>% arrange(Q2), "surveydata")
expect_s3_class(membersurvey %>% as_tibble() %>% select(Q2), "surveydata")
expect_s3_class(membersurvey %>% as_tibble() %>% summarise(n = n()), "surveydata")
expect_s3_class(membersurvey %>% as_tibble() %>% summarize(n = n()), "surveydata")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.