if (FALSE) {
library(ggplot2)
# Simple plot and table
p <- ggplot(cars) + geom_point(aes(speed, dist))
df <- head(cars)
# Basic usage
create_tabs(
plot = p,
table = df
)
# With custom rendering arguments
create_tabs(
plot = list(object = p, width = 4),
table = list(object = df, digits = 2)
)
}
Run the code above in your browser using DataLab