><%= pkg %> :: <% if(is.null(query)) query_string <- "" else query_string <- str_c("?h=", query) %> ><%= topic %>

<% sapply(items, function(item){ -%> <%# item_category <- str_c("",str_replace_all(names(item), "_t", ""), ": ", sep="") %> <%# content <- str_c("",item_category, "",as.character(item),"", collapse = "") %> <% content <- str_c("",as.character(item),"", collapse = "") %> <%= str_c("", content, "
", collapse = "") %> <% }) %>