Fix #595 as @unDocUMeantIt suggested
diff --git a/R/collapse_rows.R b/R/collapse_rows.R
index a32c56e..81c8f97 100644
--- a/R/collapse_rows.R
+++ b/R/collapse_rows.R
@@ -85,6 +85,7 @@
   kable_tbody <- xml_tpart(kable_xml, "tbody")
 
   kable_dt <- rvest::html_table(xml2::read_html(as.character(kable_input)))[[1]]
+  kable_dt <- as.data.frame(kable_dt)
   if (is.null(columns)) {
     columns <- seq(1, ncol(kable_dt))
   }