tests/testthat/test-svglite-scale.R

In unigd: Universal Graphics Device

library("grid")

# manual test
#test_that("text has correct dimensions", {
#  ttf <- fontquiver::font("Liberation", "Sans", "Regular")$ttf
#  w <- systemfonts::string_width("foobar", path = ttf, index = 0L, res = 1e4) * 72 / 1e4
#  h <- max(vapply(systemfonts::glyph_info("foobar", path = ttf, index = 0L, res = 1e4)$bbox, `[[`, numeric(1), "ymax")) * 72 / 1e4
#
#  ugd(width = w, height = h,
#    user_fonts = fontquiver::font_families("Liberation"))
#
#  grid.newpage()
#  grid.rect(0, 1, width = unit(w, "bigpts"), height = unit(h, "bigpts"),
#    hjust = 0, vjust = 1, gp = gpar(col = "red", lwd = 1))
#  grid.text("foobar", 0, 1, hjust = 0, vjust = 1, gp = gpar(fontsize = 12))
#  pushViewport(viewport())
#})

test_that("lwd has correct dimensions", {
  x <- xmlSVG({
    plot.new()
    segments(0, 1, 0, 0, lwd = 96 / 72)
  })
  line <- xml2::xml_find_all(x, "//d1:line")
  expect_equal(xml2::xml_attr(line, "style"), "stroke-width: 1.00;")
})