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

## -----------------------------------------------------------------------------
add_some <- function(x, amount = 1) {
  add_some_(x, amount)
}
add_some(1)
add_some(1, amount = 5)

## -----------------------------------------------------------------------------
is_named("foo")

is_named(c(x = "foo"))

## -----------------------------------------------------------------------------
my_false()

my_true()

my_both()

## -----------------------------------------------------------------------------
x <- new.env()

foo_exists(x)

set_foo(x, 1)

foo_exists(x)

## -----------------------------------------------------------------------------
push_raws()

## -----------------------------------------------------------------------------
x <- c(1L, 2L, 3L, 4L)
.Internal(inspect(x))
add_one(x)
.Internal(inspect(x))
x