Hao Zhu | bff0191 | 2017-05-23 18:05:00 -0400 | [diff] [blame] | 1 | #' Specify the look of the selected column |
| 2 | #' |
| 3 | #' @description This function allows users to select a column and then specify |
Hao Zhu | e7c8f70 | 2017-10-10 13:22:59 -0400 | [diff] [blame] | 4 | #' its look. |
Hao Zhu | bff0191 | 2017-05-23 18:05:00 -0400 | [diff] [blame] | 5 | #' |
| 6 | #' @param kable_input Output of `knitr::kable()` with `format` specified |
Hao Zhu | 322de08 | 2017-09-11 19:25:29 -0400 | [diff] [blame] | 7 | #' @param column A numeric value or vector indicating which column(s) to be selected. |
Hao Zhu | bff0191 | 2017-05-23 18:05:00 -0400 | [diff] [blame] | 8 | #' @param width A character string telling HTML & LaTeX how wide the column |
| 9 | #' needs to be, e.g. "10cm", "3in" or "30em". |
| 10 | #' @param bold A T/F value to control whether the text of the selected column |
| 11 | #' need to be bolded. |
| 12 | #' @param italic A T/F value to control whether the text of the selected column |
| 13 | #' need to be emphasized. |
Hao Zhu | 8f20299 | 2017-07-15 02:20:18 -0400 | [diff] [blame] | 14 | #' @param monospace A T/F value to control whether the text of the selected column |
| 15 | #' need to be monospaced (verbatim) |
Hao Zhu | ef0c830 | 2018-01-12 13:30:20 -0500 | [diff] [blame] | 16 | #' @param underline A T/F value to control whether the text of the selected row |
| 17 | #' need to be underlined |
| 18 | #' @param strikeout A T/F value to control whether the text of the selected row |
| 19 | #' need to be stricked out. |
Hao Zhu | 53e240f | 2017-09-04 20:04:29 -0400 | [diff] [blame] | 20 | #' @param color A character string for column text color. Here please pay |
| 21 | #' attention to the differences in color codes between HTML and LaTeX. |
| 22 | #' @param background A character string for column background color. Here please |
| 23 | #' pay attention to the differences in color codes between HTML and LaTeX. |
| 24 | #' @param border_left A logical variable indicating whether there should be a |
| 25 | #' border line on the left of the selected column. In HTML, you can also pass |
| 26 | #' in a character string for the CSS of the border line |
| 27 | #' @param border_right A logical variable indicating whether there should be a |
| 28 | #' border line on the right of the selected column. In HTML, you can also pass |
| 29 | #' in a character string for the CSS of the border line |
Hao Zhu | 6107f37 | 2018-05-21 00:23:26 -0400 | [diff] [blame] | 30 | #' @param width_min Only for HTML table. Normal column width will automatically |
| 31 | #' collapse when the window cannot hold enough contents. With this `width_min`, |
Hao Zhu | b1caa27 | 2018-04-14 14:19:46 -0400 | [diff] [blame] | 32 | #' you can set up a column with a width that won't collapse even when the |
| 33 | #' window is not wide enough. |
Hao Zhu | 6107f37 | 2018-05-21 00:23:26 -0400 | [diff] [blame] | 34 | #' @param width_max Only for HTML table. `width_max` defines the maximum width |
Hao Zhu | b1caa27 | 2018-04-14 14:19:46 -0400 | [diff] [blame] | 35 | #' of table columns. |
Hao Zhu | b1de967 | 2018-01-08 16:29:24 -0500 | [diff] [blame] | 36 | #' @param extra_css Extra css text to be passed into the cells of the row. Note |
| 37 | #' that it's not for the whole column but to each individual cells |
Hao Zhu | 907ddfe | 2018-04-23 15:19:09 -0400 | [diff] [blame] | 38 | #' @param include_thead T/F. A HTML only feature to contoll whether the |
| 39 | #' header row will be manipulated. Default is `FALSE`. |
Hao Zhu | 78e6122 | 2017-05-24 20:53:35 -0400 | [diff] [blame] | 40 | #' |
| 41 | #' @examples x <- knitr::kable(head(mtcars), "html") |
Hao Zhu | 4840bc9 | 2017-09-15 15:55:05 -0400 | [diff] [blame] | 42 | #' column_spec(x, 1:2, width = "20em", bold = TRUE, italic = TRUE) |
Hao Zhu | 78e6122 | 2017-05-24 20:53:35 -0400 | [diff] [blame] | 43 | #' |
Hao Zhu | bff0191 | 2017-05-23 18:05:00 -0400 | [diff] [blame] | 44 | #' @export |
Hao Zhu | 322de08 | 2017-09-11 19:25:29 -0400 | [diff] [blame] | 45 | column_spec <- function(kable_input, column, |
Hao Zhu | 8f20299 | 2017-07-15 02:20:18 -0400 | [diff] [blame] | 46 | width = NULL, bold = FALSE, italic = FALSE, |
Hao Zhu | ef0c830 | 2018-01-12 13:30:20 -0500 | [diff] [blame] | 47 | monospace = FALSE, underline = FALSE, strikeout = FALSE, |
| 48 | color = NULL, background = NULL, |
Hao Zhu | b1de967 | 2018-01-08 16:29:24 -0500 | [diff] [blame] | 49 | border_left = FALSE, border_right = FALSE, |
Hao Zhu | b1caa27 | 2018-04-14 14:19:46 -0400 | [diff] [blame] | 50 | width_min = NULL, width_max = NULL, |
Hao Zhu | 907ddfe | 2018-04-23 15:19:09 -0400 | [diff] [blame] | 51 | extra_css = NULL, include_thead = FALSE) { |
Hao Zhu | 322de08 | 2017-09-11 19:25:29 -0400 | [diff] [blame] | 52 | if (!is.numeric(column)) { |
| 53 | stop("column must be numeric. ") |
Hao Zhu | bff0191 | 2017-05-23 18:05:00 -0400 | [diff] [blame] | 54 | } |
| 55 | kable_format <- attr(kable_input, "format") |
| 56 | if (!kable_format %in% c("html", "latex")) { |
Hao Zhu | 401ebd8 | 2018-01-14 17:10:20 -0500 | [diff] [blame] | 57 | warning("Please specify format in kable. kableExtra can customize either ", |
| 58 | "HTML or LaTeX outputs. See https://haozhu233.github.io/kableExtra/ ", |
| 59 | "for details.") |
Hao Zhu | bff0191 | 2017-05-23 18:05:00 -0400 | [diff] [blame] | 60 | return(kable_input) |
| 61 | } |
| 62 | if (kable_format == "html") { |
Hao Zhu | 322de08 | 2017-09-11 19:25:29 -0400 | [diff] [blame] | 63 | return(column_spec_html(kable_input, column, width, |
Hao Zhu | 669bcd2 | 2017-08-19 14:53:40 -0400 | [diff] [blame] | 64 | bold, italic, monospace, |
Hao Zhu | ef0c830 | 2018-01-12 13:30:20 -0500 | [diff] [blame] | 65 | underline, strikeout, |
Hao Zhu | ec7ab92 | 2017-08-19 22:56:44 -0400 | [diff] [blame] | 66 | color, background, |
Hao Zhu | b1caa27 | 2018-04-14 14:19:46 -0400 | [diff] [blame] | 67 | border_left, border_right, |
| 68 | width_min, width_max, |
Hao Zhu | 907ddfe | 2018-04-23 15:19:09 -0400 | [diff] [blame] | 69 | extra_css, include_thead)) |
Hao Zhu | bff0191 | 2017-05-23 18:05:00 -0400 | [diff] [blame] | 70 | } |
| 71 | if (kable_format == "latex") { |
Hao Zhu | 322de08 | 2017-09-11 19:25:29 -0400 | [diff] [blame] | 72 | return(column_spec_latex(kable_input, column, width, |
Hao Zhu | 669bcd2 | 2017-08-19 14:53:40 -0400 | [diff] [blame] | 73 | bold, italic, monospace, |
Hao Zhu | ef0c830 | 2018-01-12 13:30:20 -0500 | [diff] [blame] | 74 | underline, strikeout, |
Hao Zhu | ec7ab92 | 2017-08-19 22:56:44 -0400 | [diff] [blame] | 75 | color, background, |
Hao Zhu | 4840bc9 | 2017-09-15 15:55:05 -0400 | [diff] [blame] | 76 | border_left, border_right)) |
Hao Zhu | bff0191 | 2017-05-23 18:05:00 -0400 | [diff] [blame] | 77 | } |
| 78 | } |
| 79 | |
Hao Zhu | 322de08 | 2017-09-11 19:25:29 -0400 | [diff] [blame] | 80 | column_spec_html <- function(kable_input, column, width, |
Hao Zhu | 669bcd2 | 2017-08-19 14:53:40 -0400 | [diff] [blame] | 81 | bold, italic, monospace, |
Hao Zhu | ef0c830 | 2018-01-12 13:30:20 -0500 | [diff] [blame] | 82 | underline, strikeout, |
Hao Zhu | ec7ab92 | 2017-08-19 22:56:44 -0400 | [diff] [blame] | 83 | color, background, |
Hao Zhu | b1caa27 | 2018-04-14 14:19:46 -0400 | [diff] [blame] | 84 | border_left, border_right, |
| 85 | width_min, width_max, |
Hao Zhu | 907ddfe | 2018-04-23 15:19:09 -0400 | [diff] [blame] | 86 | extra_css, include_thead) { |
Hao Zhu | bff0191 | 2017-05-23 18:05:00 -0400 | [diff] [blame] | 87 | kable_attrs <- attributes(kable_input) |
Hao Zhu | 558c72f | 2017-07-24 15:12:00 -0400 | [diff] [blame] | 88 | kable_xml <- read_kable_as_xml(kable_input) |
Hao Zhu | bff0191 | 2017-05-23 18:05:00 -0400 | [diff] [blame] | 89 | kable_tbody <- xml_tpart(kable_xml, "tbody") |
| 90 | |
| 91 | group_header_rows <- attr(kable_input, "group_header_rows") |
Hao Zhu | 9b43f62 | 2017-09-11 19:00:08 -0400 | [diff] [blame] | 92 | all_contents_rows <- seq(1, length(xml_children(kable_tbody))) |
Hao Zhu | 32f43f7 | 2017-06-20 18:24:54 -0400 | [diff] [blame] | 93 | |
Hao Zhu | bff0191 | 2017-05-23 18:05:00 -0400 | [diff] [blame] | 94 | if (!is.null(group_header_rows)) { |
| 95 | all_contents_rows <- all_contents_rows[!all_contents_rows %in% |
| 96 | group_header_rows] |
| 97 | } |
| 98 | |
Hao Zhu | ec7ab92 | 2017-08-19 22:56:44 -0400 | [diff] [blame] | 99 | # Border css |
| 100 | border_l_css <- "1px solid" |
| 101 | border_r_css <- "1px solid" |
| 102 | if (is.character(border_left)) { |
| 103 | border_l_css <- border_left |
| 104 | border_left <- T |
| 105 | } |
| 106 | if (is.character(border_right)) { |
| 107 | border_r_css <- border_right |
| 108 | border_right <- T |
| 109 | } |
| 110 | |
Hao Zhu | bff0191 | 2017-05-23 18:05:00 -0400 | [diff] [blame] | 111 | for (i in all_contents_rows) { |
Hao Zhu | 322de08 | 2017-09-11 19:25:29 -0400 | [diff] [blame] | 112 | for (j in column) { |
Hao Zhu | 9b43f62 | 2017-09-11 19:00:08 -0400 | [diff] [blame] | 113 | target_cell <- xml_child(xml_child(kable_tbody, i), j) |
Hao Zhu | 907ddfe | 2018-04-23 15:19:09 -0400 | [diff] [blame] | 114 | column_spec_html_cell( |
| 115 | target_cell, width, width_min, width_max, |
| 116 | bold, italic, monospace, underline, strikeout, |
| 117 | color, background, border_left, border_right, |
| 118 | border_l_css, border_r_css, |
| 119 | extra_css |
| 120 | ) |
Hao Zhu | ec7ab92 | 2017-08-19 22:56:44 -0400 | [diff] [blame] | 121 | } |
Hao Zhu | bff0191 | 2017-05-23 18:05:00 -0400 | [diff] [blame] | 122 | } |
Hao Zhu | 6a14e88 | 2017-10-31 17:04:12 -0400 | [diff] [blame] | 123 | |
Hao Zhu | 907ddfe | 2018-04-23 15:19:09 -0400 | [diff] [blame] | 124 | if (include_thead) { |
| 125 | kable_thead <- xml_tpart(kable_xml, "thead") |
| 126 | nrow_thead <- length(xml_children(kable_thead)) |
| 127 | for (j in column) { |
| 128 | target_cell <- xml_child(xml_child(kable_thead, nrow_thead), j) |
| 129 | column_spec_html_cell( |
| 130 | target_cell, width, width_min, width_max, |
| 131 | bold, italic, monospace, underline, strikeout, |
| 132 | color, background, border_left, border_right, |
| 133 | border_l_css, border_r_css, |
| 134 | extra_css |
| 135 | ) |
| 136 | } |
| 137 | } |
Hao Zhu | 6a14e88 | 2017-10-31 17:04:12 -0400 | [diff] [blame] | 138 | |
Hao Zhu | f2dfd14 | 2017-07-24 14:43:28 -0400 | [diff] [blame] | 139 | out <- as_kable_xml(kable_xml) |
Hao Zhu | bff0191 | 2017-05-23 18:05:00 -0400 | [diff] [blame] | 140 | attributes(out) <- kable_attrs |
Hao Zhu | f210083 | 2018-01-11 16:20:29 -0500 | [diff] [blame] | 141 | if (!"kableExtra" %in% class(out)) class(out) <- c("kableExtra", class(out)) |
Hao Zhu | bff0191 | 2017-05-23 18:05:00 -0400 | [diff] [blame] | 142 | return(out) |
| 143 | } |
| 144 | |
Hao Zhu | 907ddfe | 2018-04-23 15:19:09 -0400 | [diff] [blame] | 145 | column_spec_html_cell <- function(target_cell, width, width_min, width_max, |
| 146 | bold, italic, monospace, underline, strikeout, |
| 147 | color, background, |
| 148 | border_left, border_right, |
| 149 | border_l_css, border_r_css, |
| 150 | extra_css) { |
Hao Zhu | 517453c | 2018-05-13 13:07:18 -0400 | [diff] [blame] | 151 | if (is.na(xml_attr(target_cell, "style"))) { |
| 152 | xml_attr(target_cell, "style") <- "" |
| 153 | } |
Hao Zhu | 907ddfe | 2018-04-23 15:19:09 -0400 | [diff] [blame] | 154 | if (!is.null(width)) { |
| 155 | xml_attr(target_cell, "style") <- paste0(xml_attr(target_cell, "style"), |
| 156 | "width: ", width, "; ") |
| 157 | } |
| 158 | if (!is.null(width_min)) { |
| 159 | xml_attr(target_cell, "style") <- paste0(xml_attr(target_cell, "style"), |
| 160 | "min-width: ", width_min, "; ") |
| 161 | } |
| 162 | if (!is.null(width_max)) { |
| 163 | xml_attr(target_cell, "style") <- paste0(xml_attr(target_cell, "style"), |
| 164 | "max-width: ", width_max, "; ") |
| 165 | } |
| 166 | if (bold) { |
| 167 | xml_attr(target_cell, "style") <- paste0(xml_attr(target_cell, "style"), |
| 168 | "font-weight: bold;") |
| 169 | } |
| 170 | if (italic) { |
| 171 | xml_attr(target_cell, "style") <- paste0(xml_attr(target_cell, "style"), |
| 172 | "font-style: italic;") |
| 173 | } |
| 174 | if (monospace) { |
| 175 | xml_attr(target_cell, "style") <- paste0(xml_attr(target_cell, "style"), |
| 176 | "font-family: monospace;") |
| 177 | } |
| 178 | if (underline) { |
| 179 | xml_attr(target_cell, "style") <- paste0(xml_attr(target_cell, "style"), |
| 180 | "text-decoration: underline;") |
| 181 | } |
| 182 | if (strikeout) { |
| 183 | xml_attr(target_cell, "style") <- paste0(xml_attr(target_cell, "style"), |
| 184 | "text-decoration: line-through;") |
| 185 | } |
| 186 | if (!is.null(color)) { |
| 187 | xml_attr(target_cell, "style") <- paste0(xml_attr(target_cell, "style"), |
Hao Zhu | 72917f9 | 2019-03-15 18:41:42 -0400 | [diff] [blame] | 188 | "color: ", html_color(color), |
| 189 | " !important;") |
Hao Zhu | 907ddfe | 2018-04-23 15:19:09 -0400 | [diff] [blame] | 190 | } |
| 191 | if (!is.null(background)) { |
| 192 | xml_attr(target_cell, "style") <- paste0(xml_attr(target_cell, "style"), |
| 193 | "background-color: ", |
Hao Zhu | 72917f9 | 2019-03-15 18:41:42 -0400 | [diff] [blame] | 194 | html_color(background), |
| 195 | " !important;") |
Hao Zhu | 907ddfe | 2018-04-23 15:19:09 -0400 | [diff] [blame] | 196 | } |
| 197 | if (border_left) { |
| 198 | xml_attr(target_cell, "style") <- paste0(xml_attr(target_cell, "style"), |
| 199 | "border-left:", border_l_css, ";") |
| 200 | } |
| 201 | if (border_right) { |
| 202 | xml_attr(target_cell, "style") <- paste0(xml_attr(target_cell, "style"), |
| 203 | "border-right:", border_r_css, ";") |
| 204 | } |
| 205 | if (!is.null(extra_css)) { |
| 206 | xml_attr(target_cell, "style") <- paste0(xml_attr(target_cell, "style"), |
| 207 | extra_css) |
| 208 | } |
| 209 | } |
| 210 | |
Hao Zhu | 322de08 | 2017-09-11 19:25:29 -0400 | [diff] [blame] | 211 | column_spec_latex <- function(kable_input, column, width, |
Hao Zhu | a73601b | 2017-08-19 15:31:51 -0400 | [diff] [blame] | 212 | bold, italic, monospace, |
Hao Zhu | ef0c830 | 2018-01-12 13:30:20 -0500 | [diff] [blame] | 213 | underline, strikeout, |
Hao Zhu | ec7ab92 | 2017-08-19 22:56:44 -0400 | [diff] [blame] | 214 | color, background, |
Hao Zhu | 4840bc9 | 2017-09-15 15:55:05 -0400 | [diff] [blame] | 215 | border_left, border_right) { |
Hao Zhu | bff0191 | 2017-05-23 18:05:00 -0400 | [diff] [blame] | 216 | table_info <- magic_mirror(kable_input) |
Hao Zhu | f4b3529 | 2017-06-25 22:38:37 -1000 | [diff] [blame] | 217 | if (!is.null(table_info$collapse_rows)) { |
| 218 | message("Usually it is recommended to use column_spec before collapse_rows,", |
| 219 | " especially in LaTeX, to get a desired result. ") |
| 220 | } |
Hao Zhu | 67764aa | 2019-03-15 11:57:50 -0400 | [diff] [blame] | 221 | align_collapse <- ifelse(table_info$booktabs | !is.null(table_info$xtable), |
| 222 | "", "\\|") |
Hao Zhu | bff0191 | 2017-05-23 18:05:00 -0400 | [diff] [blame] | 223 | kable_align_old <- paste(table_info$align_vector, collapse = align_collapse) |
| 224 | |
Hao Zhu | 322de08 | 2017-09-11 19:25:29 -0400 | [diff] [blame] | 225 | table_info$align_vector[column] <- unlist(lapply( |
| 226 | table_info$align_vector_origin[column], |
Hao Zhu | 6ea2afd | 2017-09-11 18:30:49 -0400 | [diff] [blame] | 227 | function(x) { |
| 228 | latex_column_align_builder( |
Hao Zhu | ef0c830 | 2018-01-12 13:30:20 -0500 | [diff] [blame] | 229 | x, width, bold, italic, monospace, underline, strikeout, |
Hao Zhu | 6ea2afd | 2017-09-11 18:30:49 -0400 | [diff] [blame] | 230 | color, background, border_left, border_right) |
| 231 | } |
| 232 | )) |
Hao Zhu | bff0191 | 2017-05-23 18:05:00 -0400 | [diff] [blame] | 233 | |
| 234 | kable_align_new <- paste(table_info$align_vector, collapse = align_collapse) |
| 235 | |
Duncan Murdoch | 6eb2950 | 2018-12-16 20:21:00 -0500 | [diff] [blame] | 236 | out <- sub(paste0("\\{", kable_align_old, "\\}"), |
| 237 | paste0("\\{", kable_align_new, "\\}"), |
Hao Zhu | 3fc0e88 | 2018-04-03 16:06:41 -0400 | [diff] [blame] | 238 | solve_enc(kable_input), |
Hao Zhu | bff0191 | 2017-05-23 18:05:00 -0400 | [diff] [blame] | 239 | perl = T) |
Hao Zhu | ae80df4 | 2018-04-12 15:45:11 -0400 | [diff] [blame] | 240 | |
| 241 | if (!is.null(width)) { |
| 242 | fix_newline <- replace_makecell_with_newline(out, table_info, column) |
| 243 | out <- fix_newline[[1]] |
| 244 | table_info <- fix_newline[[2]] |
| 245 | } |
| 246 | |
Hao Zhu | bff0191 | 2017-05-23 18:05:00 -0400 | [diff] [blame] | 247 | out <- structure(out, format = "latex", class = "knitr_kable") |
Hao Zhu | f4b3529 | 2017-06-25 22:38:37 -1000 | [diff] [blame] | 248 | if (!is.null(width)) { |
| 249 | if (is.null(table_info$column_width)) { |
| 250 | table_info$column_width <- list() |
| 251 | } |
Hao Zhu | 322de08 | 2017-09-11 19:25:29 -0400 | [diff] [blame] | 252 | for (i in column) { |
Hao Zhu | 9b43f62 | 2017-09-11 19:00:08 -0400 | [diff] [blame] | 253 | table_info$column_width[[paste0("column_", i)]] <- width |
| 254 | } |
Hao Zhu | f4b3529 | 2017-06-25 22:38:37 -1000 | [diff] [blame] | 255 | } |
Hao Zhu | 32f43f7 | 2017-06-20 18:24:54 -0400 | [diff] [blame] | 256 | attr(out, "kable_meta") <- table_info |
Hao Zhu | bff0191 | 2017-05-23 18:05:00 -0400 | [diff] [blame] | 257 | return(out) |
| 258 | } |
Hao Zhu | 32f43f7 | 2017-06-20 18:24:54 -0400 | [diff] [blame] | 259 | |
Hao Zhu | a73601b | 2017-08-19 15:31:51 -0400 | [diff] [blame] | 260 | latex_column_align_builder <- function(x, width, bold, italic, monospace, |
Hao Zhu | ef0c830 | 2018-01-12 13:30:20 -0500 | [diff] [blame] | 261 | underline, strikeout, |
Hao Zhu | ec7ab92 | 2017-08-19 22:56:44 -0400 | [diff] [blame] | 262 | color, background, |
| 263 | border_left, border_right) { |
Hao Zhu | 32f43f7 | 2017-06-20 18:24:54 -0400 | [diff] [blame] | 264 | extra_align <- "" |
| 265 | if (!is.null(width)) { |
| 266 | extra_align <- switch(x, |
Hao Zhu | bf5bfe2 | 2017-06-21 14:37:41 -0400 | [diff] [blame] | 267 | "l" = "\\\\raggedright\\\\arraybackslash", |
| 268 | "c" = "\\\\centering\\\\arraybackslash", |
| 269 | "r" = "\\\\raggedleft\\\\arraybackslash") |
Hao Zhu | 32f43f7 | 2017-06-20 18:24:54 -0400 | [diff] [blame] | 270 | x <- paste0("p\\{", width, "\\}") |
| 271 | } |
| 272 | |
Hao Zhu | a73601b | 2017-08-19 15:31:51 -0400 | [diff] [blame] | 273 | if (!is.null(color)) { |
Stefanie LaZerte | 994fc56 | 2017-12-11 14:14:07 -0600 | [diff] [blame] | 274 | color <- paste0("\\\\leavevmode\\\\color", latex_color(color)) |
Hao Zhu | 32f43f7 | 2017-06-20 18:24:54 -0400 | [diff] [blame] | 275 | } |
| 276 | |
Hao Zhu | f2ebf9e | 2017-09-14 11:40:49 -0400 | [diff] [blame] | 277 | if (!is.null(background)) { |
Hao Zhu | 915b1b2 | 2017-11-09 14:01:44 -0500 | [diff] [blame] | 278 | background <- paste0("\\\\columncolor", latex_color(background)) |
Hao Zhu | ec7ab92 | 2017-08-19 22:56:44 -0400 | [diff] [blame] | 279 | } |
| 280 | |
Hao Zhu | ef0c830 | 2018-01-12 13:30:20 -0500 | [diff] [blame] | 281 | latex_array_options <- c("\\\\bfseries", "\\\\em", "\\\\ttfamily", |
| 282 | "\\\\underline", "\\\\sout")[ |
Hao Zhu | b49bddf | 2018-01-12 15:25:23 -0500 | [diff] [blame] | 283 | c(bold, italic, monospace, underline, strikeout)] |
Hao Zhu | ec7ab92 | 2017-08-19 22:56:44 -0400 | [diff] [blame] | 284 | latex_array_options <- c(latex_array_options, extra_align, |
| 285 | color, background) |
Hao Zhu | a73601b | 2017-08-19 15:31:51 -0400 | [diff] [blame] | 286 | latex_array_options <- paste0( |
| 287 | "\\>\\{", paste(latex_array_options, collapse = ""), "\\}" |
| 288 | ) |
| 289 | x <- paste0(latex_array_options, x) |
Hao Zhu | ec7ab92 | 2017-08-19 22:56:44 -0400 | [diff] [blame] | 290 | if (border_left) { |
Hao Zhu | b49bddf | 2018-01-12 15:25:23 -0500 | [diff] [blame] | 291 | x <- paste0("\\|", x) |
Hao Zhu | ec7ab92 | 2017-08-19 22:56:44 -0400 | [diff] [blame] | 292 | } |
| 293 | if (border_right) { |
Hao Zhu | b49bddf | 2018-01-12 15:25:23 -0500 | [diff] [blame] | 294 | x <- paste0(x, "\\|") |
Hao Zhu | ec7ab92 | 2017-08-19 22:56:44 -0400 | [diff] [blame] | 295 | } |
Hao Zhu | a73601b | 2017-08-19 15:31:51 -0400 | [diff] [blame] | 296 | |
Hao Zhu | 32f43f7 | 2017-06-20 18:24:54 -0400 | [diff] [blame] | 297 | return(x) |
| 298 | } |
Hao Zhu | ae80df4 | 2018-04-12 15:45:11 -0400 | [diff] [blame] | 299 | |
| 300 | replace_makecell_with_newline <- function(kable_input, table_info, column) { |
| 301 | if (!str_detect(kable_input, "makecell")) return(list(kable_input, table_info)) |
| 302 | contents_table <- data.frame(sapply(table_info$contents, |
| 303 | function(x) {str_split(x, " \\& ")[[1]]}), |
| 304 | stringsAsFactors = F) |
| 305 | names(contents_table) <- paste0("x", 1:table_info$nrow) |
| 306 | rows_check_makecell <- str_detect(contents_table[column, ], "makecell") |
| 307 | if (sum(rows_check_makecell) == 0) return(list(kable_input, table_info)) |
| 308 | rows_to_replace <- which(rows_check_makecell) |
| 309 | |
| 310 | for (i in column) { |
| 311 | target_column <- contents_table[i, ] |
| 312 | for (j in which(str_detect(target_column, "\\\\\\\\makecell"))) { |
| 313 | contents_table[i, j] <- str_replace( |
| 314 | contents_table[i, j], "\\\\\\\\makecell\\\\\\[.\\\\\\]\\\\\\{", "") |
| 315 | contents_table[i, j] <- str_replace( |
Hao Zhu | 9ac3e38 | 2018-04-12 18:56:32 -0400 | [diff] [blame] | 316 | contents_table[i, j], "\\\\\\}$", "") |
Hao Zhu | ae80df4 | 2018-04-12 15:45:11 -0400 | [diff] [blame] | 317 | contents_table[i, j] <- str_replace_all( |
| 318 | contents_table[i, j], "\\\\\\\\\\\\\\\\", "\\\\\\\\newline " |
| 319 | ) |
| 320 | } |
| 321 | } |
| 322 | |
| 323 | new_contents <- unlist(lapply(contents_table, paste, collapse = " & ")) |
| 324 | for (i in rows_to_replace) { |
| 325 | kable_input <- sub(table_info$contents[i], new_contents[i], kable_input, |
| 326 | perl = T) |
| 327 | table_info$contents[i] <- new_contents[i] |
| 328 | } |
| 329 | |
| 330 | return(list(kable_input, table_info)) |
| 331 | } |