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)
diff --git a/tests/visual_tests/column_row_spec_html.Rmd b/tests/visual_tests/column_row_spec_html.Rmd
index e073930..6525e42 100644
--- a/tests/visual_tests/column_row_spec_html.Rmd
+++ b/tests/visual_tests/column_row_spec_html.Rmd
@@ -18,6 +18,14 @@
library(kableExtra)
library(xml2)
+y <- knitr::kable(head(mtcars), "html")
+y %>%
+ kable_styling(full_width = F) %>%
+ column_spec(1:3, width = "5cm")
+```
+
+```{r}
+
dt <- data.frame(
row_id = c("abb", "xxx", "aaa"),
contents = c(
@@ -39,7 +47,6 @@
kable(dt, "html") %>%
kable_styling(full_width = F) %>%
- row_spec(1, bold = T) %>%
column_spec(2, "5cm", bold = T, color = "white", background = "gray") %>%
column_spec(3, monospace = T, border_right = T) %>%
column_spec(4, "3cm", italic = T)
@@ -54,6 +61,34 @@
kable(dt, "html") %>%
kable_styling(full_width = F) %>%
column_spec(7, bold = T) %>%
- row_spec(0, color = "black", align = "right", font_size = 20) %>%
row_spec(5, bold = T, italic = T, color = "white", background = "black")
```
+
+```{r}
+library(data.table)
+csd <- fread(' Oct-17 Sep-17 Aug-17 Jul-17 Jun-17 May-17 Apr-17 Mar-17 Feb-17 Jan-17 Dec-16 Nov-16 Oct-16 Sep-16 2017 YTD 2016 YTD 2015 YTD
+V1
+V2 71,687 74,492 72,772 74,785 77,084 72,819 85,367 77,403 85,131 81,585 80,186 89,810 92,871 691,540 1,141,589 1,207,433
+V3 22,788 22,355 23,093 23,239 23,821 23,005 25,883 22,168 24,812 23,715 22,708 28,128 29,366 211,164 353,006 411,659
+V4 #DIV/0! 31.8% 30.0% 31.7% 31.1% 30.9% 31.6% 30.3% 28.6% 29.1% 29.1% 28.3% 31.3% 31.6% 30.5% 30.9% 34.1%
+Some long variable name 30,047 31,910 30,046 31,766 33,455 30,913 37,524 33,683 37,589 36,571 35,590 44,447 44,295 296,933 516,597 528,305
+V5 2.89% 1.83% 1.55% 1.97% 2.85% 1.37% 4.95% 5.54% 3.45% 3.12% 1.92% 2.65% 1.69% 3.01% 2.04% 0.61%
+V6 867 583 465 626 952 422 1,857 1,866 1,298 1,140 682 1,179 748 8,936 10,539 3,201
+V7 29,180 31,327 29,581 31,140 32,503 30,491 35,667 31,817 36,291 35,431 34,908 43,268 43,547 287,997 506,058 525,104
+V8 0:23 0:15 0:10 0:20 0:29 0:14 0:53 1:03 0:33 0:24 0:20 0:25 0:17 0:29 0:21 0:06
+V9 4:53 4:44 4:46 5:00 5:01 5:05 5:01 5:05 5:01 4:57 5:01 4:49 4:52 4:57 4:47 4:11
+V10 86% 91% 94% 89% 83% 91% 78% 72% 81% 86% 89% 85% 92% 85% 89% 94%
+V11 99.05% 98.20% 96.40% 97.25% 97.80% 96.50% 95.55% 95.85% 95.65% 96.25% 96.55% 97.75% 97.95% 96.92% 97.33% 98.23%
+V12 99.75% 100.00% 99.90% 98.85% 99.00% 98.75% 99.00% 99.55% 99.85% 99.45% 99.20% 97.70% 97.55% 99.41% 98.50% 99.01%
+')
+csd <- csd[-1,-2]
+names(csd)[1] <- 'V0'
+words <- c('these','are','some','words','extreme','slightly')
+
+csd[,1] <- replicate(nrow(csd), paste(sample(words, 7, T), collapse = " "))
+
+csd %>%
+ kable('html', digits = 2) %>%
+ column_spec(1, bold = T, width = "5cm; display: inline-block;") %>%
+ kable_styling(bootstrap_options = c("striped", "hover"))
+```