Inputs.table(
tidy(
who,
pivotLonger({ cols: startsWith('new'), namesTo: 'key', valuesTo: 'cases' }),
filter(d => d.cases !== 'NA'),
mutate({ key: d => d.key.replace('newrel', 'new_rel') }),
mutate({
key: d => d.key.split('_'),
new: d => d.key[0],
type: d => d.key[1],
sexage: d => d.key[2]
}),
mutate({
sexage: d => [d.sexage[0], d.sexage.substring(1)],
sex: d => d.sexage[0],
age: d => +d.sexage[1]
}),
mutate({
cases2: d => Number(d.cases) + 1,
cases_ratio: d => d.cases/d.cases2
}),
select(['-key', '-new', '-iso2', '-iso3', '-sexage'])
).slice(0, 20)
)