% if(dataframe_has_rows(news)) {-%>
<%= str_c("",title,"" ) %>
<%= if(!is.na(date)) {str_c(" ",date,"") } %>
<% for(i in seq_along(names(news))) { -%>
<% if(has_text(news[[i]])) {-%>
<% news_name <- names(news)[i] %>
<%= if(!is.na(news_name)){ str_c("",news_name,"
") } %>
<%= str_c("- ",str_c(news[[i]], collapse="
- ") ,"
") %>
<% } %>
<% } %>
<% } %>