В файле rmarkdown ниже я пытаюсь использовать свернутые строки.В этом случае будет только 1 строка, но в других случаях будет более 1 строки.
Когда вы запустите файл, вы увидите звездочку, а затем номер .02 *.Когда вы закомментируете строку "%>% collapse_rows (columns = 1, latex_hline =" major ", valign =" middle ")", звездочка исчезает, поэтому она имеет какое-то отношение к свернутым строкам.Как это можно исправить, учитывая, что я хотел бы сохранить код свернутых строк, потому что в других случаях есть более 1 строки, и это работает.Я попытался условно исключить с оператором if, но это не сработало.
---
author:
- ""
classoption: landscape
output:
pdf_document:
number_sections: false
dev: pdf
keep_tex: no
toc: yes
toc_depth: 3
fig.pos: H
fig.width: 11in
fontsize: 9pt
geometry: "left=1cm,right=1cm,top=1cm,bottom=1cm"
fig.lp: 'Fig '
setspace: singlespacing
always_allow_html: yes
header-includes:
- \usepackage{amsmath}
- \usepackage{rotating}
- \usepackage{float}
- \usepackage{longtable}
- \usepackage{tabulary}
- \usepackage{array}
- \usepackage{colortbl}
- \usepackage{graphicx}
- \usepackage{booktabs}
- \usepackage{multirow}
- \usepackage[table]{xcolor}
- \usepackage{wrapfig}
- \usepackage{pdflscape}
- \usepackage{tabu}
- \usepackage{threeparttable}
- \usepackage{threeparttablex}
- \usepackage[normalem]{ulem}
- \usepackage{makecell}
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```
```{r test}
library(kableExtra)
library(dplyr)
d = data.frame(g = c("A"),v = c(.02))%>%
dplyr::mutate(
v = cell_spec(v,
color = ifelse(is.na(v),"black", ifelse( abs(v) >= 1, "red", "black")),
bold= ifelse(is.na(v),FALSE, ifelse( abs(v) >= .1, TRUE, FALSE)) )
)%>%
dplyr::rename("test"="v" )
kable(
d,
format ="latex",
caption = "test",
booktabs = T,
longtable = T,
escape = F,
align = "c",
linesep=""
) %>% kable_styling(latex_options = c(
"repeat_header"
),
font_size=8) %>% collapse_rows(columns = 1, latex_hline = "major", valign = "middle")
#%>% {if(nrow(d)>1) collapse_rows(columns = 1, latex_hline = "major", valign = "middle")} #this does not work
```