r - 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