fn contingency_table(
    ctx: &mut EventCtx<'_>,
    app: &App,
    filter: &Filter
) -> Widget