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

Question

我想使用 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遇到了vline ：虽然 Petal.Length 列的右边缘有一条垂直线，但该列的左边缘还有一条我无法摆脱的不想要的垂直线。 我只想要在指定第 3 列的右边缘有一条垂直线，这就是我所理解的vline的记录行为。

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

Answer 1

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