flextable
flextable copied to clipboard
Gaps in vertical borders on merged column
I'm using bookdown to make a PDF document via the xelatex engine and pandoc.
When merging a column, gaps appear in the left border of the first column:
library(flextable)
library(officer)
dt <- list(
c("Raw Data", "XML", "mzML", "Standard for raw MS data"),
c("Raw Data", "XML", "mzXML", "Open format for raw MS data"),
c("Raw Data", "HDF5", "mz5", "Open Binary format for raw MS data")
)
data_types <- as.data.frame(t(as.data.frame(dt)))
rownames(data_types) <- c()
set_flextable_defaults(fonts_ignore = TRUE)
big_border = fp_border(color="Black", style = "solid", width = 1)
small_border = fp_border(color="gray", width = 1)
data_types %>%
flextable() %>%
set_table_properties(layout = "autofit", width = .8) %>%
set_header_labels(V1="Data Type", V2="Syntax", V3="Format Name", V4="Usage") %>%
merge_v(j = ~ V1) %>%
border_remove() %>%
valign(valign = "top", part = "all") %>%
border_inner_h(part="all", border = small_border ) %>%
border_inner_v(part="all", border = small_border) %>%
border_outer(part="all", border = big_border ) %>%
fix_border_issues(part = "all")
sessionInfo()
R version 4.2.1 (2022-06-23)
Platform: x86_64-apple-darwin17.0 (64-bit)
Running under: macOS Monterey 12.5
Matrix products: default
LAPACK: /Library/Frameworks/R.framework/Versions/4.2/Resources/lib/libRlapack.dylib
locale:
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8
attached base packages:
[1] stats graphics grDevices utils datasets methods base
other attached packages:
[1] officer_0.4.3 flextable_0.7.2
loaded via a namespace (and not attached):
[1] Rcpp_1.0.9 bookdown_0.27 digest_0.6.29 R6_2.5.1 evaluate_0.15 zip_2.2.0
[7] rlang_1.0.4 gdtools_0.2.4 cli_3.3.0 uuid_1.1-0 data.table_1.14.2 rstudioapi_0.13
[13] xml2_1.3.3 rmarkdown_2.14 tools_4.2.1 xfun_0.31 yaml_2.3.5 fastmap_1.1.0
[19] compiler_4.2.1 systemfonts_1.0.4 base64enc_0.1-3 htmltools_0.5.3 knitr_1.39
