Nothing
## ---- setup, echo = FALSE-----------------------------------------------------
knitr::opts_chunk$set(error = TRUE)
## ---- figure------------------------------------------------------------------
library(multipanelfigure)
library(grid)
cols <- 4
rows <- 3
figure <- multi_panel_figure(
width = 135,
columns = cols,
height = 100,
rows = rows)
## ---- rect_grob---------------------------------------------------------------
rect_grob <- function()
{
this_env <- environment(rect_grob)
assign("current", this_env$current + 1, this_env)
rectGrob(gp = gpar(fill = rainbow(8)[this_env$current], alpha = 0.5))
}
assign("current", 0, environment(rect_grob))
## ---- panel1_1----------------------------------------------------------------
(figure %<>% fill_panel(rect_grob()))
## ---- panel1_2----------------------------------------------------------------
(figure %<>% fill_panel(rect_grob()))
## ---- panel1.3_3--------------------------------------------------------------
(figure %<>% fill_panel(rect_grob(), row = 1:3, column = 3))
## ---- panel1_4----------------------------------------------------------------
(figure %<>% fill_panel(rect_grob()))
## ---- panel2_1----------------------------------------------------------------
(figure %<>% fill_panel(rect_grob()))
## ---- panel2_4----------------------------------------------------------------
(figure %<>% fill_panel(rect_grob(), column = 4))
## ---- panel3_1----------------------------------------------------------------
(figure %<>% fill_panel(rect_grob(), row = 3))
## ---- panel2.3_2.3------------------------------------------------------------
(figure %<>% fill_panel(rect_grob(), column = 2:3, row = 3))
## ---- allow_panel_overwriting-------------------------------------------------
(figure %<>% fill_panel(rect_grob(), column = 2:3, row = 3, allow_panel_overwriting = TRUE))
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.