时间戳

首页 > 解决方案 > 使用折叠行时出现星号

r - 使用折叠行时出现星号

问题描述

在下面的 rmarkdown 文件中，我尝试使用折叠行。在这种情况下只有 1 行，但在其他情况下将超过 1 行。

当您运行该文件时，您将看到一个星号，然后是数字 .02*。当您注释掉“%>% collapse_rows(columns = 1, latex_hline = "major", valign = "middle")" 行时，astersik 消失了，因此它与折叠行有关。考虑到我想保留折叠行代码，如何解决这个问题，因为在其他情况下有超过 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



```

标签： rr-markdownkablekableextra

解决方案

这是一个解决方法：

……{if(nrow(d)>1) collapse_rows(columns = 1, latex_hline = "major", valign = "middle") else . } %>%

推荐阅读