我试图用程序的方式来设计我的flextables，但是在使用某些函数时遇到了问题，例如merge_at()和hline();它们只对我引用的列的最后一个条目进行样式化，而不管我尝试使用哪一行。
这里有一个最小的例子。iris_a变成了我想要的样子，而iris_b以一种我无法理解的方式改变了。

# setup
library(tidyverse)
library(officer)
library(flextable)
thin_border <- fp_border(color = "gray")

setosa <- iris %>% group_split(Species) %>% .[[1]] %>% slice(1:2)
versicolor <- iris %>% group_split(Species) %>% .[[2]] %>% slice(1:2)

iris_a <- bind_rows(setosa, versicolor) %>% mutate(spec = case_when(
    Species == "setosa" ~ "set",
    Species == "versicolor" ~ "versi"
)) %>% flextable()
iris_b <- iris_a

specs <- c("setosa", "versicolor")

# actual transformation

for (k in specs) {
    iris_a<- iris_a%>% hline(., i = ~ Species == k, j = 1:5, border = thin_border)
}
for(k in specs){
    iris_a <- iris_a %>% merge_at(., i = ~ Species == k, j = ~spec)
}
iris_a %>% fix_border_issues()

# success, a nice table; now I wrap the loops into functions

merge_cells <- function(flex, location){
    for(k in location){
    flex <- flex %>% merge_at(., i = ~ Species == k, j = ~spec)    
    }
flex
}

add_vlines <- function(flex, location){
    for (k in location) {
        flex <- flex %>% hline(., i = ~ Species == k, j = 1:5, border = thin_border)
    }
flex
}

iris_b <- iris_b %>%
    add_vlines(., "set") %>%
    merge_cells(., "set")
iris_b %>% fix_border_issues()

不管location设置了什么，结果都是一样的（例如location = specs）。
我也试过用mk_par()来解决这个问题，但没有用。
我哪里做错了？
补遗：忘了补充，location可以设置为 * 任何 *，结果仍然是一样的（iris_b %>% merge_cells(., "something")）。