t <- newTuple('sequence', list(name='chromosome', length=2014239))
s <- newSingle('topology', 'circular')
addSingle(t, single=s)
addSingle(t, name='color', 'blue')
tupleToList(t)
# expected output:
# $name
# [1] "chromosome"
# $length
# [1] 2014239
# $topology
# [1] "circular"
# $color
# [1] "blue"
Run the code above in your browser using DataLab