context("check images") library(xml2) library(officer) data <- iris[c(1:3, 51:53, 101:104),] col_keys <- c("Species", "sep_1", "Sepal.Length", "Sepal.Width", "sep_2", "Petal.Length", "Petal.Width" ) img.file <- file.path( R.home("doc"), "html", "logo.jpg" ) file.copy(img.file, "rlogo.jpg") test_that("images", { ft <- flextable(data, col_keys = col_keys ) ft <- compose( ft, j = "Sepal.Length", value = as_paragraph( as_chunk("blah blah "), as_image("rlogo.jpg", width = .3, height = 0.23), " ", as_chunk(sprintf("val: %.1f", Sepal.Length), props = fp_text(color = "orange", vertical.align = "superscript") ) ) ) ft <- compose( ft, j = "sep_1", value = as_paragraph( as_image("rlogo.jpg", width = .3, height = 0.23)) ) ft <- compose( ft, j = "Petal.Length", value = as_paragraph( "blah blah ", as_chunk(Sepal.Length, props = fp_text(color = "orange", vertical.align = "superscript") )) ) ft <- style(ft, pr_c = fp_cell(margin = 0, border = fp_border(width = 0) ), pr_p = fp_par(padding = 0, border = fp_border(width = 0) ), pr_t = fp_text(font.size = 10), part = "all" ) ft <- autofit(ft, add_w = 0, add_h = 0) dims <- ft$body$colwidths expect_equal( as.vector(dims["sep_1"]), .3, tolerance = .00001) docx_file <- tempfile(fileext = ".docx") doc <- read_docx() doc <- body_add_flextable(doc, value = ft) expect_error({ print(doc, target = docx_file) }, NA) }) unlink("rlogo.jpg")
Generated by dwww version 1.15 on Sun Jun 16 10:43:52 CEST 2024.