Add examples to the doc site
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)) {