div_with_class <- function(..., class = "") {
  htmltools::tags$div(..., class = class)
}

apply_tag <- function(..., tag, class = NULL, extra_attributes = NULL) {
  lapply(list(...), function(x) htmltools::tag(tag, c(x, class = class, extra_attributes)))
}