remove display inline-block in column width
diff --git a/R/column_spec.R b/R/column_spec.R
index a924439..755c57d 100644
--- a/R/column_spec.R
+++ b/R/column_spec.R
@@ -87,8 +87,7 @@
target_cell <- xml_child(xml_child(kable_tbody, i), j)
if (!is.null(width)) {
xml_attr(target_cell, "style") <- paste0(xml_attr(target_cell, "style"),
- "width: ", width,
- "; display: inline-block; ")
+ "width: ", width, "; ")
}
if (bold) {
xml_attr(target_cell, "style") <- paste0(xml_attr(target_cell, "style"),
@@ -121,6 +120,8 @@
}
}
}
+
+
out <- as_kable_xml(kable_xml)
attributes(out) <- kable_attrs
return(out)