<% 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) ){ %>
<%= Function[i] %>: <%= Description[i] %>
<%} } ) } )%>