diff --git a/R/group_rows.R b/R/group_rows.R
index 3a179b0..1474c17 100644
--- a/R/group_rows.R
+++ b/R/group_rows.R
@@ -56,7 +56,8 @@
   return(out)
 }
 
-group_rows_latex <- function(kable_input, group_label, start_row, end_row, gap_space) {
+group_rows_latex <- function(kable_input, group_label, start_row, end_row,
+                             gap_space) {
   table_info <- magic_mirror(kable_input)
   out <- kable_input
 
diff --git a/R/kable_styling.R b/R/kable_styling.R
index 05a95cc..05ede9c 100644
--- a/R/kable_styling.R
+++ b/R/kable_styling.R
@@ -122,6 +122,10 @@
   if (!is.null(font_size)) {
     kable_xml_style <- c(kable_xml_style,
                          paste0("font-size: ", font_size, "px;"))
+    kable_caption_node <- xml_tpart(kable_xml, "caption")
+    if (!is.null(kable_caption_node)) {
+      xml_attr(kable_caption_node, "style") <- "font-size: initial !important;"
+    }
   }
   if (!full_width) {
     kable_xml_style <- c(kable_xml_style, "width: auto !important;")
diff --git a/R/util.R b/R/util.R
index 50129a7..66ee3be 100644
--- a/R/util.R
+++ b/R/util.R
@@ -36,6 +36,7 @@
 xml_tpart <- function(x, part) {
   xchildren <- xml_children(x)
   children_names <- xml_name(xchildren)
+  if(!part %in% children_names) return(NULL)
   return(xchildren[[which(children_names == part)]])
 }
 
diff --git a/tests/visual_tests/add_indent_and_group_rows_html.Rmd b/tests/visual_tests/add_indent_and_group_rows_html.Rmd
index 609e09a..be8726e 100644
--- a/tests/visual_tests/add_indent_and_group_rows_html.Rmd
+++ b/tests/visual_tests/add_indent_and_group_rows_html.Rmd
@@ -20,8 +20,8 @@
 ```
 
 ```{r}
-kable(dt, format = "html") %>%
-  kable_styling("striped", full_width = F) %>%
+kable(dt, format = "html", caption = "aaa") %>%
+  kable_styling("striped", full_width = F, font_size = 5) %>%
   group_rows("Group 1", 4, 7) %>%
   group_rows("Group 2", 8, 10)
 ```