Can anyone point out why this is not working?

y<-read.table(pipe('  awk '{ n = $1; sub( ".*" $1 " " ,"") ; while ( n-- )
print }'  temp.txt '))

	[[alternative HTML version deleted]]

