|
- 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)))
- }
|