## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup--------------------------------------------------------------------
library(chronicler)

## ----parsermd-chunk-1---------------------------------------------------------
library(chronicler)
library(maybe)

## ----parsermd-chunk-2---------------------------------------------------------
m_sqrt <- maybe(sqrt)

m_sqrt(16)

## ----parsermd-chunk-3---------------------------------------------------------
m_sqrt("10")

## ----parsermd-chunk-4---------------------------------------------------------
r_sqrt <- record(sqrt)

r_sqrt("16")

## ----parsermd-chunk-5---------------------------------------------------------
r_sqrt <- record(sqrt)

r_sqrt(16)

## ----parsermd-chunk-6---------------------------------------------------------
unveil(r_sqrt(16), "value")

## ----parsermd-chunk-7---------------------------------------------------------
(r_sqrt(16))$value