><%= 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("", collapse = "") %>
<% }) %>