set_diff <- function(x, y) {
vctrs::vec_unique(vctrs::vec_slice(x, !vctrs::vec_in(x, y)))
}
set_union <- function(x, y) {
vctrs::vec_unique(vctrs::vec_c(x, y))
}
unstructure <- function(x) {
attributes(x) <- list(names = names(x))
x
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.