## Not run:
# rnorm(30) %|% 'head -n2'
# rnorm(30) %|% 'sed "s/^ *\\[[0-9]*\\]//g" '
#
# if( require(R4X ) ){
# x <- xml( '<root>
# <child id="1">
# <subchild id = "sub1" >foo</subchild>
# <subchild id = "sub2" >bar</subchild>
# </child>
# <child id="2">
# <subchild id="a">blah</subchild>
# <subchild id="b">bob</subchild>
# <something id="c" />
# </child>
# <fruits>
# <fruit>banana</fruit>
# <fruit>mango</fruit>
# </fruits>
# </root>' )
# x %|% "xml_pp | highlight -S xml -A"
# }
# ## End(Not run)
Run the code above in your browser using DataLab