Merge branch 'master' into dev

R/style_extra_css.R

@@ -12,6 +12,8 @@
 #' @param css A named list of CSS definitions each containing a named list
 #'   of CSS property-value pairs, i.e.
 #'   `list(".class-id" = list("css-property" = "value"))`
+#' @param append If `TRUE` output will be appended to `outfile`; otherwise,
+#'   it will overwrite the contents of `outfile`.
 #'
 #' @examples
 #' style_extra_css(
@@ -28,7 +30,7 @@
 #' )
 #' @inheritParams style_xaringan
 #' @export
-style_extra_css <- function(css, outfile = "xaringan-themer.css") {
+style_extra_css <- function(css, outfile = "xaringan-themer.css", append = TRUE) {
   cat(
     "\n\n/* Extra CSS */",
     list2css(css),

man/style_extra_css.Rd

@@ -4,7 +4,7 @@
 \alias{style_extra_css}
 \title{Add Extra CSS Styles}
 \usage{
-style_extra_css(css, outfile = "xaringan-themer.css")
+style_extra_css(css, outfile = "xaringan-themer.css", append = TRUE)
 }
 \arguments{
 \item{css}{A named list of CSS definitions each containing a named list
@@ -12,6 +12,9 @@ of CSS property-value pairs, i.e.
 \code{list(".class-id" = list("css-property" = "value"))}}
 
 \item{outfile}{Customized xaringan CSS output file name, default is "xaringan-themer.css"}
+
+\item{append}{If \code{TRUE} output will be appended to \code{outfile}; otherwise,
+it will overwrite the contents of \code{outfile}.}
 }
 \description{
 Adds css elements to target \code{outfile}, typically a xaringanthemer css file.