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