context("geom-errorbarh")
test_that("can supply `height` for compatibility with ggplot2 version of errorbarh (#27, #29)", {
w <- range_p + geom_errorbarh(aes(xmin = lower, xmax = upper), width = 0.5)
h <- range_p + geom_errorbarh(aes(xmin = lower, xmax = upper), height = 0.5)
for (p in list(w, h)) {
expect_doppelganger("height and width aesthetics are equivalent", p)
}
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.