R flextable - マージされたセルの下にテーブル全体の水平ボーダーを追加する方法

Question

セルをマージしたときに水平ボーダーテーブルを幅広くする賢い方法はありますか？ （下の例では、テーブルワイドではありません）。

また、正しいインデックスを計算する関数を書く必要がありますか？

library(flextable) 
library(officer) 
library(dplyr) 

myft <- flextable(head(mtcars), 
        col_keys = c("am", "carb", "gear", "mpg", "drat"))%>% 
    theme_vanilla()%>% 
    merge_v(j = c("am"))%>%border(border.bottom = fp_border(style = "solid", width=2), i=c(3,6), part="body") 

myft 

Answer 1

ここでは、必要なコードを示します。これは、汎用的であるためにはもっと多くの作業が必要です。この例は、列1がセルを結合した唯一のものである場合にのみ適用されます。

library(flextable) 
library(officer) 
library(dplyr) 

bigborder <- fp_border(style = "solid", width=2) 
myft <- flextable(head(mtcars), 
        col_keys = c("am", "carb", "gear", "mpg", "drat"))%>% 
    theme_vanilla()%>% 
    merge_v(j = c("am")) 

# here starts the trick 
row_loc <- rle(cumsum(myft$body$spans$columns[,1]))$values 
myft <- myft %>% 
    border(border.bottom = bigborder, i=row_loc, j = 2:5, part="body") 
myft <- myft %>% 
    border(border.bottom = bigborder, 
     i = myft$body$spans$columns[,1] > 1, j = 1, part="body") %>% 


    border(border.bottom = bigborder, border.top = bigborder, part = "header") 
myft