View source: R/validate_fys_permitted.R
validate_fys_permitted | R Documentation |
Many functions expect financial years. Determining that they are validly entered is often quite computationally costly, relative to the core calculations. These internal functions provide mechanisms to check validity quickly, while still providing clear, accurate error messages.
validate_fys_permitted(
to_verify,
permitted_fys = NULL,
min.yr = NULL,
max.yr = NULL,
deparsed = deparse(substitute(to_verify)),
allow.projection = TRUE,
earliest_permitted_financial_year = "earliest permitted financial year",
latest_permitted_financial_year = "latest permitted financial year",
.retain_fmatches = FALSE
)
to_verify |
A user-provided value, purporting to be character vector of financial years. |
permitted_fys |
A character vector of valid financial years. |
min.yr, max.yr |
Integers specifying the range of |
deparsed |
A string indicating the argument that the user provided. Should generally be provided explicitly as the default is unlikely to be user-friendly. |
allow.projection |
If |
earliest_permitted_financial_year, latest_permitted_financial_year |
Text
for earliest/latest permitted financial year when |
.retain_fmatches |
If |
The preferred form is "2012-13"
, and this function
returns all elements of to_verify
in this form. That is, it does
not preserve the input form.
Other forms that are recognized (and converted) are:
"201213"
"2012 13"
"2012\u2011
13"
"2012\u2012
13"
"2012\u2013
13"
"2012\u2014
13"
"2012-2013"
If to_verify
contains valid financial years
they are returned all in the form 2013-14
. If they were
already in that form, they obtain the following attributes:
fy_all_fy
TRUE
if all the financial years are valid.
fy_min_yr
An integer, the earliest year ending in to_verify
.
fy_max_yr
An integer, the latest year ending in to_verify
.
fy_fmatches
An integer vector, the matches with the prebuilt financial years.
x <- rep_len(yr2fy(2004L), 1e9) bench::system_time(validate_fys_permitted(x)) #> process real #> 3.578s 3.576s x <- rep_len(yr2fy(1980:2016), 1e9) bench::system_time(validate_fys_permitted(x)) #> process real #> 3.766s 3.753s
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.