context("latex table structure")
test_that("white spaces are protected", {
ft <- flextable(data.frame(x = ""))
ft <- delete_part(ft, part = "header")
ft <- mk_par(ft, 1, 1, as_paragraph("foo", " ", "bar"))
str <- flextable:::gen_raw_latex(ft)
expect_true(grepl("{\\ }", str, fixed = TRUE))
})
Generated by dwww version 1.15 on Sun Jun 16 16:05:29 CEST 2024.