diff --git a/R/collapse_rows.R b/R/collapse_rows.R
index 7f21996..3b13997 100644
--- a/R/collapse_rows.R
+++ b/R/collapse_rows.R
@@ -33,7 +33,7 @@
 
 collapse_rows_html <- function(kable_input, columns) {
   kable_attrs <- attributes(kable_input)
-  kable_xml <- read_xml(as.character(kable_input), options = "COMPACT")
+  kable_xml <- read_kable_as_xml(kable_input)
   kable_tbody <- xml_tpart(kable_xml, "tbody")
 
   kable_dt <- rvest::html_table(xml2::read_html(as.character(kable_input)))[[1]]