Skip to contents

Determines whether or not the FOKUS survey for the specified canton at the specified ballot date on the specified political levels covered the specified referendum proposal numbers.

Usage

has_proposal_nrs(
  ballot_date = pal::pkg_config_val("ballot_date"),
  lvls = all_lvls,
  canton = cantons(ballot_date),
  proposal_nrs = NULL
)

Arguments

ballot_date

FOKUS-covered ballot date. One of

  • "2018-09-23"

  • "2018-11-25"

  • "2019-10-20"

  • "2020-09-27"

  • "2020-10-18"

  • "2021-11-28"

  • "2023-06-18"

  • "2024-10-20"

lvls

Political level(s). One or more of "cantonal" and "federal".

canton

FOKUS-covered canton name. One of

  • "aargau"

Only relevant if lvls includes "cantonal".

proposal_nrs

Proposals number(s) to test for. An integerish vector or NULL. If NULL, falls back to 1:n_proposals() present matching the specified parameters.

Value

Either

  • an unnamed logical scalar if proposal_nrs is NULL and there was no FOKUS-covered referendum at ballot_date on any lvls, or

  • a logical vector of the same length as lvls × proposal_nrs, named after lvls.proposal_nrs.

Examples

fokus::has_proposal_nrs(ballot_date = "2018-09-23",
                        canton = "aargau")
#> cantonal.1  federal.1  federal.2  federal.3 
#>       TRUE       TRUE       TRUE       TRUE 

fokus::has_proposal_nrs(ballot_date = "2018-09-23",
                        lvls = "federal",
                        canton = "aargau")
#> federal.1 federal.2 federal.3 
#>      TRUE      TRUE      TRUE 
                        
fokus::has_proposal_nrs(ballot_date = "2018-09-23",
                        canton = "aargau",
                        proposal_nrs = 1:5)
#> cantonal.1 cantonal.2 cantonal.3 cantonal.4 cantonal.5  federal.1  federal.2  federal.3  federal.4  federal.5 
#>       TRUE      FALSE      FALSE      FALSE      FALSE       TRUE       TRUE       TRUE      FALSE      FALSE 

fokus::has_proposal_nrs(ballot_date = "2019-10-20",
                        canton = "aargau")
#> [1] FALSE

fokus::has_proposal_nrs(ballot_date = "2021-11-28",
                        lvls = "cantonal",
                        canton = "aargau")
#> [1] FALSE