tests/testthat/test-polyline.R

In ragg: Graphic Devices Based on AGG

render_polyline <- function(colour, linewidth, linetype, lineend, linejoin) {
  dev <- agg_capture()
  grid::grid.lines(
    x = c(0.1, 0.4, 0.8, 0.5, 0.9),
    y = c(0.9, 0.7, 0.1, 0.3, 0.8),
    gp = grid::gpar(
      col = colour,
      lwd = linewidth,
      lty = linetype,
      linewidth = linewidth,
      lineend = lineend
    )
  )
  out <- dev()
  dev.off()
  out
}

test_that("polyline stroke works", {
  polyline <- table(render_polyline('black', 14, 'solid', 'round', 'round'))
  expect_equal(polyline[['white']], 218850)
  expect_equal(polyline[['black']], 9298)

  polyline <- table(render_polyline('black', 14, 'dotdash', 'round', 'round'))
  expect_equal(polyline[['black']], 5497)

  polyline <- table(render_polyline('black', 14, 'solid', 'butt', 'round'))
  expect_equal(polyline[['black']], 9219)

  polyline <- table(render_polyline('black', 14, 'solid', 'round', 'bevel'))
  expect_equal(polyline[['black']], 9298)

  polyline <- table(render_polyline('blue', 14, 'solid', 'round', 'round'))
  expect_equal(polyline[['blue']], 9298)

  polyline <- table(render_polyline('#DE2D7633', 14, 'solid', 'round', 'round'))
  expect_equal(polyline[['#F8D5E4']], 9298)
})