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

Answer 2

Гораздо более простое решение — добавить столбец, указывающий, какие строки нуждаются в нижней границе, а затем добавить hline() с выбором строки, использующим это значение. Этот вспомогательный выбор можно убрать из таблицы, выбрав только те столбцы, которые вы хотите отобразить в исходной спецификации гибкой таблицы, используя col_keys.

      library(tidyverse)
library(flextable)

your_flextable = tibble(
  col_group = rep(letters[1:3], each = 3),
  the_value = rnorm(length(col_group))
) %>%
  group_by(col_group) %>%
  mutate(
    is_last_val_in_group = row_number() == max(row_number())
  ) %>%
  flextable(col_keys = c('col_group', 'the_value')) %>%
  merge_v(j = 'col_group') %>%
  hline(i = ~is_last_val_in_group == TRUE, border = fp_border()) %>%
  fix_border_issues()