inst/doc/multiverse-in-rmd.R

In multiverse: 'Explorable Multiverse' Data Analysis and Reports

params <-
list(EVAL = TRUE)

## ---- setup, message=FALSE, warning=FALSE-------------------------------------
library(knitr)
library(dplyr)
library(tidyr)
library(ggplot2)
library(purrr)
library(multiverse)

## ---- include=FALSE-----------------------------------------------------------
M_inside = multiverse()
M_block = multiverse()

## ---- chunk-setup, include=FALSE----------------------------------------------
opts_chunk$set(
  echo = TRUE,
  eval = if (isTRUE(exists("params"))) params$EVAL else FALSE,
  fig.width = 6, 
  fig.height = 4
)

## -----------------------------------------------------------------------------
data("userlogs")

## -----------------------------------------------------------------------------
M_inside = multiverse()
M_block = multiverse()

## -----------------------------------------------------------------------------
inside(M_inside, {
    data_transform <- branch(data_transform,
        "log-transformed" ~ log,
        "untransformed" ~ identity
      )
    
    duration <- do.call(data_transform, list(userlogs$duration))
})

## ----echo = FALSE, out.width = '90%'------------------------------------------
knitr::include_graphics("figures/01-multiverse-addins.png")

## ----default-m-1, inside = M_block, echo = FALSE, engine="multiverse"---------
data_transform <- log
duration <- do.call(data_transform, list(userlogs$duration))

## ----default-m-1, inside = M_block, echo = FALSE, engine="multiverse"---------
data_transform <- identity
duration <- do.call(data_transform, list(userlogs$duration))

## -----------------------------------------------------------------------------
expand(M_inside)

## -----------------------------------------------------------------------------
expand(M_block)

## ---- echo = FALSE------------------------------------------------------------
expand(M_inside)$.code

## ---- echo = FALSE------------------------------------------------------------
expand(M_block)$.code