## code to prepare `DATASET` dataset goes here
obs_data <- tibble::tibble(
lgl = c(TRUE, FALSE, NA),
int = c(1L, 4L, 6L),
dbl = c(1, 4.5, 8.2),
chr = c("most", "most", "a rarity"),
fct = factor(chr, levels = c("not obs", "a rarity", "most")),
ord = ordered(chr, levels = c("not obs", "a rarity", "most")),
dte = as.Date(int),
dtt = as.POSIXct(int, tz = "PST8PDT"),
hms = hms::as_hms(int)
)
usethis::use_data(obs_data, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.