Add examples to the doc site
diff --git a/R/add_header_left.R b/R/add_header_left.R
index 1b4e1fe..6449879 100644
--- a/R/add_header_left.R
+++ b/R/add_header_left.R
@@ -23,6 +23,9 @@
#' only one for LaTeX. Option full_midline is a TRUE/FALSE option to control
#' if the mid line needs to be extended to the end of row.
#'
+#' @examples x <- knitr::kable(head(mtcars), "html")
+#' add_header_left(x, c("A" = 2, "B" = 2, "C" = 2))
+#'
#' @export
add_header_left <- function(kable_input, header = NULL, header_name = "",
align = "c", width = NULL, bold = F, italic = F,
diff --git a/R/collapse_rows.R b/R/collapse_rows.R
index f9602e8..d9a305c 100644
--- a/R/collapse_rows.R
+++ b/R/collapse_rows.R
@@ -9,6 +9,10 @@
#' @param kable_input Output of `knitr::kable()` with `format` specified
#' @param columns Numeric column positions where rows need to be collapsed.
#'
+#' @examples dt <- data.frame(a = c(1, 1, 2, 2), b = c("a", "a", "a", "b"))
+#' x <- knitr::kable(dt, "html")
+#' collapse_rows(x)
+#'
#' @export
collapse_rows <- function(kable_input, columns = NULL) {
# if (is.null(columns)) {