Fix #107
diff --git a/R/column_spec.R b/R/column_spec.R
index f747dd2..da8252c 100644
--- a/R/column_spec.R
+++ b/R/column_spec.R
@@ -114,11 +114,11 @@
}
if (underline) {
xml_attr(target_cell, "style") <- paste0(xml_attr(target_cell, "style"),
- "text-decoration: underline;")
+ "text-decoration: underline;")
}
if (strikeout) {
xml_attr(target_cell, "style") <- paste0(xml_attr(target_cell, "style"),
- "text-decoration: line-through;")
+ "text-decoration: line-through;")
}
if (!is.null(color)) {
xml_attr(target_cell, "style") <- paste0(xml_attr(target_cell, "style"),
@@ -214,7 +214,7 @@
latex_array_options <- c("\\\\bfseries", "\\\\em", "\\\\ttfamily",
"\\\\underline", "\\\\sout")[
- c(bold, italic, monospace, underline, strikeout)]
+ c(bold, italic, monospace, underline, strikeout)]
latex_array_options <- c(latex_array_options, extra_align,
color, background)
latex_array_options <- paste0(
@@ -222,10 +222,10 @@
)
x <- paste0(latex_array_options, x)
if (border_left) {
- x <- paste0("|", x)
+ x <- paste0("\\|", x)
}
if (border_right) {
- x <- paste0(x, "|")
+ x <- paste0(x, "\\|")
}
return(x)