如何让 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 的问题：虽然 Petal.Length 列的右边缘有一条垂直线，但该列的左边缘也有一条我无法摆脱的不需要的垂直线的。我只希望在指定的第 3 列的右边缘有一条垂直线，这就是我理解的 the documented behaviour for vline。

这是flextable 0.4.4 中的一个错误，或者有人可以帮我弄清楚我做错了什么吗？

Answer 1

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