Nothing
context("insert_or")
test_that("check bevhaviour of ggplot_build (changed in ggplot2 v2.2)", {
data("data_gam")
fit_gam <- gam(y ~ s(x0) + s(I(x1^2)) + s(x2) + offset(x3) + x4,
data = data_gam
)
library(oddsratio)
plot_object <- plot_gam(fit_gam, pred = "x2", title = "Predictor 'x2'")
# ggplot2 < v2.2)
# ymin = ggplot_build(plot_object)$panel$ranges[[1]]$y.range[1]
# ymax = ggplot_build(plot_object)$panel$ranges[[1]]$y.range[2]
# ggplot2 v2.2.x
# ymin <- ggplot_build(plot_object)$layout$panel_ranges[[1]]$y.range[1]
# ymax <- ggplot_build(plot_object)$layout$panel_ranges[[1]]$y.range[2]
# ggplot2 v2.3.x
library(ggplot2)
ymin <- ggplot_build(plot_object)$layout$panel_params[[1]]$y.range[1]
ymax <- ggplot_build(plot_object)$layout$panel_params[[1]]$y.range[2]
expect_equal(class(ymin), "numeric")
expect_equal(class(ymax), "numeric")
expect_equal(length(ggplot_build(plot_object)$layout$panel_params[[1]]$
y.range), 2)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.