如何让 flextable::vline 创建单边框

How to get flextable::vline to create single border

我想使用 R 中的 flextable 包显示单个垂直边框,但要么我无法让它工作,要么包(版本 0.4.4)中存在错误:

library(flextable)
library(officer) # needed to define border properties

std_border = officer::fp_border(color="orange", width = 1)

# dataset to be used for examples
dat <- head(iris[c(1:5, 51:55, 101:105),])
ft <- regulartable(dat)
border_remove(x = ft)

# add internal borders
hline(ft, i = 3, border = std_border)
vline(ft, j = 3, border = std_border)

结果是这样的:

正如预期的那样,第三行数据底部有一条水平线(从Sepal.Length = 4.700开始);所以,hline 似乎按预期工作。但是,我在使用 vline 时遇到了问题:尽管 Petal.Length 列的右边缘有一条垂直线,但该列的左边缘也有一条不需要的垂直线,我可以摆脱掉。我只想要在指定列 3 的右边缘有一条垂直线,这就是我理解的 the documented behaviour for vline

这是 flextable 0.4.4 中的错误还是有人可以帮我弄清楚我做错了什么?

这是一个问题,已在 flextable 0.4.5 中解决。