yogat3ch

 out <- list(
      greeting = glue::glue("Dearest {`first_name`},"),
      text = if (rsvp %|% FALSE) {
        c("We're excited
  and delighted,
  that you'll be there,
  for this wedding affair.",
  "You stated your plans as follows:",
  htmltools::doRenderTags(shiny::tags$ul(list_to_li(purrr::imap(.x, ~paste0(.y, ": ", .x))))),
  "If all looks good, we'll await your arrival,