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, "; "))