<% by.out <- by( x, x$Package, force ) lapply( by.out, function(y){ package <- y$Package[1] %>

<%= package %>

<% with( y, { for( i in 1:nrow(y) ){ %> <%} } ) } )%>