Code
DER <- read_parquet("DER.parquet")DER <- read_parquet("DER.parquet")DER |>
arrange(iso3c, date) |>
group_by(iso3c, iso2c, `Reporting country`) |>
summarise(Nobs = n(),
start = first(date),
end = last(date)) |>
arrange(-Nobs) %>%
{if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}