Code
%>%
DEBTSEC arrange(iso3c, date) %>%
group_by(iso3c, iso2c, `Issuer residence`) %>%
summarise(Nobs = n(),
start = first(date),
end = last(date)) %>%
arrange(-Nobs) %>%
if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {