Description Usage Arguments Author(s) References See Also Examples
Creates a nested list
object structure.
1 |
input |
Signature argument. Object containing list input. |
strict |
|
... |
Further arguments to be passed to subsequent functions/methods. |
Janko Thyson janko.thyson@rappster.de
http://github.com/Rappster/nestr
toList-env-method,
setNested,
rmNested
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 | ## Not run:
##------------------------------------------------------------------------------
## Names //
##------------------------------------------------------------------------------
input <- new.env()
setNested("europe/germany/berlin", value = 1, where = input, gap = TRUE)
setNested("europe/germany/hamburg", value = 2, where = input)
setNested("europe/germany/munich", value = 3, where = input)
setNested("america/usa/wisconsin/madison", value = 1, where = input, gap = TRUE)
setNested("south.america", value = 1, where = input)
toList(input = input)
res <- fromList(toList(input), where = new.env())
ls(res)
##------------------------------------------------------------------------------
## No names //
##------------------------------------------------------------------------------
input <- new.env()
setNested("[1]/id", value = 1, where = input, gap = TRUE)
setNested("[1]/name", value = "abc", where = input, gap = TRUE)
setNested("[2]/id", value = "2", where = input, gap = TRUE)
setNested("[2]/name", value = "def", where = input, gap = TRUE)
setNested("[2]/address", value = "asdfasdf", where = input, gap = TRUE)
toList(input)
res <- fromList(toList(input), where = new.env())
ls(res)
##------------------------------------------------------------------------------
## Mixed //
##------------------------------------------------------------------------------
input <- new.env()
setNested("[1]/id", value = 1, where = input, gap = TRUE)
setNested("[1]/name", value = "abc", where = input, gap = TRUE)
setNested("[2]/id", value = "2", where = input, gap = TRUE)
setNested("[2]/name", value = "def", where = input, gap = TRUE)
setNested("[2]/address", value = "asdfasdf", where = input, gap = TRUE)
setNested("john_doe/id", value = "2", where = input, gap = TRUE)
setNested("john_doe/name", value = "john doe", where = input, gap = TRUE)
setNested("john_doe/address", value = "asdfasdf", where = input, gap = TRUE)
toList(input)
res <- fromList(toList(input), where = new.env())
ls(res)
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.