withr::with_package("dplyr", {
membersurvey %>%
as_tibble() %>%
.[c("id", "Q1", "Q2")] %>%
filter(Q2 == 2009)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.