1## ---- include = FALSE---------------------------------------------------------
2knitr::opts_chunk$set(
3  collapse = TRUE,
4  comment = "#>"
5)
6library(cpp11)
7
8## -----------------------------------------------------------------------------
9add_some <- function(x, amount = 1) {
10  add_some_(x, amount)
11}
12add_some(1)
13add_some(1, amount = 5)
14
15## -----------------------------------------------------------------------------
16is_named("foo")
17
18is_named(c(x = "foo"))
19
20## -----------------------------------------------------------------------------
21my_false()
22
23my_true()
24
25my_both()
26
27## -----------------------------------------------------------------------------
28x <- new.env()
29
30foo_exists(x)
31
32set_foo(x, 1)
33
34foo_exists(x)
35
36## -----------------------------------------------------------------------------
37push_raws()
38
39## -----------------------------------------------------------------------------
40x <- c(1L, 2L, 3L, 4L)
41.Internal(inspect(x))
42add_one(x)
43.Internal(inspect(x))
44x
45
46