library("steward") library("here")
diamonds_meta <- stw_read_meta_yaml(here("inst", "metadata", "diamonds.yml")) %>% stw_mutate_meta( n_row = 53940L, n_col = 10L ) %>% stw_check("all")
usethis::use_data( diamonds_meta, overwrite = TRUE )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.