1
2R version 4.0.3 (2020-10-10) -- "Bunny-Wunnies Freak Out"
3Copyright (C) 2020 The R Foundation for Statistical Computing
4Platform: x86_64-apple-darwin17.0 (64-bit)
5
6R is free software and comes with ABSOLUTELY NO WARRANTY.
7You are welcome to redistribute it under certain conditions.
8Type 'license()' or 'licence()' for distribution details.
9
10R is a collaborative project with many contributors.
11Type 'contributors()' for more information and
12'citation()' on how to cite R or R packages in publications.
13
14Type 'demo()' for some demos, 'help()' for on-line help, or
15'help.start()' for an HTML browser interface to help.
16Type 'q()' to quit R.
17
18> NAME <- "banner"
19> source(file.path('_helper', 'init.R'))
20>
21> # - Banner Capture ------------------------------------------------------------
22>
23> ref <- as.character(
24+   diffPrint(1 + 2, letters, tar.banner="1 + 2", cur.banner="letters")
25+ )
26> identical(as.character(diffPrint(1 + 2, letters)), ref)
27[1] TRUE
28> invisible(
29+   setMethod(
30+     "diffPrint", c("numeric", "character"),
31+     function(target, current, ...) callNextMethod()
32+ ) )
33> identical(as.character(diffPrint(1 + 2, letters)), ref)
34[1] TRUE
35> isTRUE(
36+   !identical(as.character(diffPrint(1 + 2, LETTERS)), ref)
37+ )
38[1] TRUE
39>
40> proc.time()
41   user  system elapsed
42  1.303   0.143   1.449
43