Nothing
knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.width = 4, fig.height = 4 )
grob_layout()
, which needs to be utilized in order to create the final PDF.grob_layout()
reads the grob-row's and grob-columns within it to know how to layout the page. See the grobblR vignette for information on how it allots space to the grob-rows and grob-columns.library(grobblR)
grob_layout()
, the grob_row()
and grob_col()
functions are able to put borders around their contents.grob_layout( grob_row( grob_col(1), grob_col(border = TRUE, 2) ), grob_row( border = TRUE, grob_col(3), grob_col( border = TRUE, grob_row(border = TRUE, grob_col(border = TRUE, 4)), grob_row(border = TRUE, grob_col(border = TRUE, 5)) ) ), height = 100, width = 100 ) %>% view_grob()
border_aes_list
argument and the ga_list()
function, the user can adjustborder_sides
)border_width
)border_color
)?ga_list
.grob_layout( grob_row( grob_col(1), grob_col( border = TRUE, border_aes_list = ga_list( border_color = "red" ), 2 ) ), grob_row( border = TRUE, border_aes_list = ga_list( border_sides = "top", border_width = 5 ), grob_col(3), grob_col( border = TRUE, border_aes_list = ga_list( border_sides = "left, bottom", border_color = "blue", border_width = 4 ), 4 ) ), height = 100, width = 100 ) %>% view_grob()
grob_layout()
, grob_row()
or grob_col()
.grob_layout( title = "grob-layout title", grob_row( grob_col(1), grob_col(title = "grob-column title", 2) ), grob_row( title = "grob-row title", grob_col(3), grob_col(4) ) ) %>% view_grob(height = 100, width = 100)
title_height
argument, or changing the title height proportion with title_p
.title_p
corresponds to the proportion of the height allotted to the grob in question which will be given to the title.title_height
will override title_p
in all cases.grob_layout( title = "grob-layout title", title_height = 20, grob_row( grob_col(1), grob_col( title = "grob-column title", title_p = 0.5, 2 ) ), grob_row( title = "grob-row title", title_height = 10, grob_col(3), grob_col(4) ) ) %>% view_grob(height = 100, width = 100)
title_aes_list
argument and ga_list()
.grob_layout( title = "grob-layout title", title_height = 20, title_aes_list = ga_list( text_color = "blue", border_sides = "bottom" ), grob_row( grob_col(1), grob_col( title = "grob-column title", title_p = 0.5, title_aes_list = ga_list( font_face = 3, text_color = "white", background_color = "gray40" ), 2 ) ) ) %>% view_grob(height = 100, width = 100)
grob_layout()
, grob_col()
and grob_row()
are all equipped with caption
, caption_aes_list
, caption_p
and caption_height
arguments.grob_layout( caption = "grob-layout caption", grob_row( grob_col(1), grob_col(caption = "grob-column caption", 2) ), grob_row( caption = "grob-row caption", grob_col(3), grob_col(4) ) ) %>% view_grob(height = 100, width = 100)
grob_layout( caption = "grob-layout caption", caption_height = 20, grob_row( grob_col(1), grob_col( caption = "grob-column caption", caption_p = 0.5, 2 ) ), grob_row( caption = "grob-row caption", caption_height = 10, grob_col(3), grob_col(4) ) ) %>% view_grob(height = 100, width = 100)
grob_layout( caption = "grob-layout caption", caption_height = 20, caption_aes_list = ga_list( text_color = "blue", border_sides = "bottom" ), grob_row( grob_col(1), grob_col( caption = "grob-column caption", caption_p = 0.5, caption_aes_list = ga_list( font_face = 3, text_color = "white", background_color = "gray40" ), 2 ) ) ) %>% view_grob(height = 100, width = 100)
page_number
argument within grob_layout()
.grob_layout( grob_row( grob_col(1), grob_col(2) ), grob_row( grob_col(3), grob_col(4) ), page_number = 1 ) %>% view_grob(height = 100, width = 100)
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.