vignettes/scripted-html.R

In bergsmat/yamlet: Versatile Curation of Table Metadata

## ----include = FALSE-----------------------------------------------
knitr::opts_chunk$set(dpi = 600, out.width = '50%')

## ----message = FALSE, warning = FALSE------------------------------
library(magrittr)
library(ggplot2)
library(tablet)
library(yamlet)
library(dplyr)
library(kableExtra)

## ------------------------------------------------------------------
x <- data.frame(
  time = 1:10, 
  work = (1:10)^1.5, 
  group = 1:2, 
  set = c(rep('delta',5), rep('gamma', 5))
)
x %<>% decorate('
 time: [ Time_cum.^alpha, h ]
 work: [ Work_total_obs\\n, kg*m^2/s^2 ]
 group: [ Group, [ Second\\nGroup^\\*: 2, First\\nGroup^#: 1 ]]
 set: [ Set, [ gamma, delta ]]
')
x %>% decorations

## ----fig.width = 4.43, fig.height = 2.77---------------------------
x %>% 
  resolve %>% 
  ggplot(aes(time, work, color = group, shape = set)) + 
  geom_point()

## ----, fig.width = 4.33, fig.height = 2.82-------------------------
x %>% 
  enscript %>% 
  ggplot(aes(time, work, color = group, shape = set)) + 
  facet_grid(~ group) +
  geom_point()

## ------------------------------------------------------------------
x %>% 
  enscript %>% 
  group_by(group, set) %>%
  tablet %>%
  as_kable