Commit 1f33944f authored by Pradat Yoann's avatar Pradat Yoann
Browse files

use modifyList in themes to leave unmodified other graphical parameters

parent 9eb7a89a
......@@ -146,7 +146,7 @@ test_that("gtable circle annotated", {
}
ind <- find_cell(g, 2, 2, "circle-bg")
g$grobs[ind][[1]][["gp"]] <- gpar(col = "red", lwd=3)
g$qrobs[ind][[1]][["gp"]] <- modifyList(g$grobs[ind][[1]][["gp"]], list(col="red", lwd=3))
out <- plot_grob(g, name="gtable_circle_annotated.pdf")
expect_true(out$plot_success)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment