if (FALSE) {
rnorm(30) %|% 'head -n2'
rnorm(30) %|% 'sed "s/^ *\\[[0-9]*\\]//g" '
if( require(R4X ) ){
x <- xml( '
foo
bar
blah
bob
banana
mango
' )
x %|% "xml_pp | highlight -S xml -A"
}
}
Run the code above in your browser using DataLab