#' Hail Eris
#'
#' Use with caution.
#'
#' @return POEE date, unless there's a hiccup, but it'll sort itself out
#' @export
ddate <- function() {
poee <- poee()
fnord <- fnord()
lottery <- c(poee, fnord)
ticket <- sample(lottery, 1, replace = T, prob = c(0.7, 0.3))
return(ticket)
# invisible(ticket)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.