w <- mosaicData::Weather
weather <- data.frame(
city = w$city,
high_temp = w$high_temp
)
month_name_1 <- plyr::mapvalues(
w$month,
from = 1:12,
to = month.abb
)
weather$month_name <-
factor(month_name_1, levels = month.abb)
usethis::use_data(weather, internal = TRUE, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.