Nothing
Code
x <- 1:10
y <- list(x, x)
ref(x, list(), list(x, x, x), list(a = x, b = x), letters)
Output
[1:0x001] <int>
█ [2:0x002] <list>
█ [3:0x003] <list>
├─[1:0x001]
├─[1:0x001]
└─[1:0x001]
█ [4:0x004] <named list>
├─a = [1:0x001]
└─b = [1:0x001]
[5:0x005] <chr>
Code
e <- env(a = 1:10)
e$b <- e$a
e$c <- e
ref(e)
Output
█ [1:0x001] <env>
├─a = [2:0x002] <int>
├─b = [2:0x002]
└─c = [1:0x001]
Code
e <- env(. = 1:10)
ref(e)
Output
█ [1:0x001] <env>
└─. = [2:0x002] <int>
Code
ref(c("string", "string", "new string"), character = TRUE)
Output
█ [1:0x001] <chr>
├─[2:0x002] <string: "string">
├─[2:0x002]
└─[3:0x003] <string: "new string">
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.