update documentation (not done)
diff --git a/R/scroll_box.R b/R/scroll_box.R
index 166545d..9cf85d3 100644
--- a/R/scroll_box.R
+++ b/R/scroll_box.R
@@ -6,12 +6,16 @@
#' @param kable_input A HTML kable object
#' @param height A character string indicating the height of the box, e.g. "50px"
#' @param width A character string indicating the width of the box, e.g. "100px"
+#' @param box_css CSS text for the box
+#' @param extra_css Extra CSS styles
#'
#' @export
-scroll_box <- function(kable_input, height = NULL, width = NULL) {
+scroll_box <- function(kable_input, height = NULL, width = NULL,
+ box_css = "border: 1px solid #ddd; padding: 5px; ",
+ extra_css = NULL) {
kable_attrs <- attributes(kable_input)
out <- as.character(kable_input)
- box_styles <- c()
+ box_styles <- c(box_css, extra_css)
if (!is.null(height)) {
box_styles <- c(box_styles,
paste0("overflow-y: scroll; height:", height, "; "))