diff --git a/R/group_rows.R b/R/group_rows.R
index 4ac5654..5017159 100644
--- a/R/group_rows.R
+++ b/R/group_rows.R
@@ -32,6 +32,7 @@
 #' @param hline_after A replicate of `hline.after` in xtable. It
 #' addes a hline after the row
 #' @param extra_latex_after Extra LaTeX text to be added after the row.
+#' @param indent A T?F value to control whether list items are indented.
 #'
 #' @examples x <- knitr::kable(head(mtcars), "html")
 #' # Put Row 2 to Row 5 into a Group and label it as "Group A"
@@ -44,11 +45,12 @@
                        label_row_css = "border-bottom: 1px solid;",
                        latex_gap_space = "0.3em",
                        escape = TRUE, latex_align = "l", colnum = NULL,
-                       bold = T,
-                       italic = F,
-                       hline_before = F,
-                       hline_after = F,
-                       extra_latex_after = NULL) {
+                       bold = TRUE,
+                       italic = FALSE,
+                       hline_before = FALSE,
+                       hline_after = FALSE,
+                       extra_latex_after = NULL,
+                       indent = TRUE) {
 
   kable_format <- attr(kable_input, "format")
   if (!kable_format %in% c("html", "latex")) {
@@ -62,12 +64,13 @@
       if(!missing(latex_align)) warning("latex_align parameter is not used in HTML Mode,
                                     use label_row_css instead.")
       return(group_rows_html(kable_input, group_label, start_row, end_row,
-                             label_row_css, escape, colnum))
+                             label_row_css, escape, colnum, indent))
     }
     if (kable_format == "latex") {
       return(group_rows_latex(kable_input, group_label, start_row, end_row,
                               latex_gap_space, escape, latex_align, colnum,
-                              bold, italic, hline_before, hline_after, extra_latex_after))
+                              bold, italic, hline_before, hline_after,
+                              extra_latex_after, indent))
     }
   } else {
     index <- group_row_index_translator(index)
@@ -78,7 +81,7 @@
                                     use label_row_css instead.")
         out <- group_rows_html(out, index$header[i],
                                index$start[i], index$end[i],
-                               label_row_css, escape, colnum)
+                               label_row_css, escape, colnum, indent)
       }
     }
     if (kable_format == "latex") {
@@ -86,7 +89,8 @@
         out <- group_rows_latex(out, index$header[i],
                                index$start[i], index$end[i],
                                latex_gap_space, escape, latex_align, colnum,
-                               bold, italic, hline_before, hline_after, extra_latex_after)
+                               bold, italic, hline_before, hline_after,
+                               extra_latex_after, indent)
       }
     }
     return(out)
@@ -103,7 +107,7 @@
 }
 
 group_rows_html <- function(kable_input, group_label, start_row, end_row,
-                            label_row_css, escape, colnum) {
+                            label_row_css, escape, colnum, indent) {
   kable_attrs <- attributes(kable_input)
   kable_xml <- read_kable_as_xml(kable_input)
   kable_tbody <- xml_tpart(kable_xml, "tbody")
@@ -136,14 +140,16 @@
   out <- as_kable_xml(kable_xml)
   attributes(out) <- kable_attrs
   attr(out, "group_header_rows") <- c(attr(out, "group_header_rows"), group_seq[1])
-  out <- add_indent_html(out, positions = seq(start_row, end_row))
+  if (indent) {
+    out <- add_indent_html(out, positions = seq(start_row, end_row))
+  }
   return(out)
 }
 
 group_rows_latex <- function(kable_input, group_label, start_row, end_row,
                              gap_space, escape, latex_align, colnum,
                              bold = T, italic = F, hline_before = F ,hline_after = F,
-                             extra_latex_after = NULL) {
+                             extra_latex_after = NULL, indent) {
   table_info <- magic_mirror(kable_input)
   out <- solve_enc(kable_input)
 
@@ -193,7 +199,9 @@
   out <- structure(out, format = "latex", class = "knitr_kable")
   table_info$group_rows_used <- TRUE
   attr(out, "kable_meta") <- table_info
-  out <- add_indent_latex(out, seq(start_row, end_row))
+  if (indent) {
+    out <- add_indent_latex(out, seq(start_row, end_row))
+  }
   return(out)
 }
 
diff --git a/man/group_rows.Rd b/man/group_rows.Rd
index 3bf01cd..b5b6db4 100644
--- a/man/group_rows.Rd
+++ b/man/group_rows.Rd
@@ -8,8 +8,8 @@
   end_row = NULL, index = NULL,
   label_row_css = "border-bottom: 1px solid;",
   latex_gap_space = "0.3em", escape = TRUE, latex_align = "l",
-  colnum = NULL, bold = T, italic = F, hline_before = F,
-  hline_after = F, extra_latex_after = NULL)
+  colnum = NULL, bold = TRUE, italic = FALSE, hline_before = FALSE,
+  hline_after = FALSE, extra_latex_after = NULL, indent = TRUE)
 }
 \arguments{
 \item{kable_input}{Output of \code{knitr::kable()} with \code{format} specified}
@@ -56,6 +56,8 @@
 addes a hline after the row}
 
 \item{extra_latex_after}{Extra LaTeX text to be added after the row.}
+
+\item{indent}{A T?F value to control whether list items are indented.}
 }
 \description{
 Group a few rows in a table together under a label.