r - 使用 R Markdown 中的 Kable 和 collapse_rows 对表的最后一行进行杂散格式化

Question

我对 R 编程相当陌生，我希望那里有一位 kable 专家可以帮助我。我在 R 降价文档中有以下代码：

test_table <- data.frame(column_1=c("a","a","b","b","c","c"),
                         column_2=c(1,2,3,4,5,6),
                         column_3=c(0,9,8,7,6,5))
test_table %>%
  kable(caption = "test_table*", table.attr = "style='width:95%;'" ) %>% 
  kable_classic(full_width = T, position = "center", ) %>% 

 

  collapse_rows(columns = 1, valign = "middle") %>% 
  # center and add horizontal lines to all rows
  row_spec(c(1:(nrow(test_table)-1)),
           align = "c",
           extra_css = "border-bottom: 2px dotted #c5c5c5; vertical-align: middle") %>% 
  # format header row
  row_spec(0,
           color = "#000000",
           background = "#93d500",
           align = "c",
           extra_css = "border: 2px solid #FFFFFF; padding: 5px; vertical-align: middle") %>% 
  # format last row
    row_spec(nrow(test_table),
             align = "c",
             extra_css = "border-bottom: 3px solid #93d500; vertical-align: middle") %>%  
  footnote(symbol = "test_table",
           symbol_manual = '*',
           footnote_as_chunk =  T)

问题是第一列的最后一行没有得到表格其余部分的绿线，而是有点或黑线，如下图所示：

有什么方法可以让绿线显示在第一列而不摆脱我的 collapse_rows 子句？

标签： rkable