Add extra_css to spec family
diff --git a/R/cell_spec.R b/R/cell_spec.R
index 0774fcb..bc7af1e 100644
--- a/R/cell_spec.R
+++ b/R/cell_spec.R
@@ -32,6 +32,7 @@
#' bootstrap module manually. Read the package vignette to see how.
#' @param link A vector of strings for url links. Can be used together with
#' tooltip and popover.
+#' @param extra_css Extra css text to be passed into the cell
#' @param escape T/F value showing whether special characters should be escaped.
#' @param background_as_tile T/F value indicating if you want to have round
#' cornered tile as background in HTML.
@@ -46,6 +47,7 @@
color = NULL, background = NULL,
align = NULL, font_size = NULL, angle = NULL,
tooltip = NULL, popover = NULL, link = NULL,
+ extra_css = NULL,
escape = TRUE,
background_as_tile = TRUE,
latex_background_in_cell = TRUE) {
@@ -61,7 +63,7 @@
if (tolower(format) == "html") {
return(cell_spec_html(x, bold, italic, monospace,
color, background, align, font_size, angle,
- tooltip, popover, link,
+ tooltip, popover, link, extra_css,
escape, background_as_tile))
}
if (tolower(format) == "latex") {
@@ -73,7 +75,7 @@
cell_spec_html <- function(x, bold, italic, monospace,
color, background, align, font_size, angle,
- tooltip, popover, link,
+ tooltip, popover, link, extra_css,
escape, background_as_tile) {
if (escape) x <- escape_html(x)
cell_style <- NULL
@@ -92,6 +94,9 @@
"background-color: ", html_color(background), ";"
)
}
+ if (!is.null(extra_css)) {
+ cell_style <- paste0(cell_style, extra_css)
+ }
if (!is.null(align)) {
cell_style <- paste0(cell_style, "text-align: ", align, ";")
}