Set pattern into ARUtools environment

Usage

set_pattern(pattern_name, pattern)

Arguments

pattern_name: string of variable to set
pattern: Pattern to add into ARUtools environment

Examples


og_pat <- get_pattern("pattern_date_time")

set_pattern("pattern_date_time", create_pattern_date())

glue::glue("Default pattern: {og_pat}")
#> Default pattern: (((((\d{2})(\/)(\d{2})(\/)((([12]{1}\d{3}))))))|(((((([12]{1}\d{3})))(_|-|)(\d{2})(_|-|)(\d{2}))))) ([0-2]{1}[0-9]{1})(_|-|:|)([0-5]{1}[0-9]{1})((_|-|:|)([0-5]{1}[0-9]{1}))
glue::glue("Updated pattern: {get_pattern('pattern_date_time')}")
#> Updated pattern: ((((([12]{1}\d{3})))(_|-|)(\d{2})(_|-|)(\d{2})))

set_pattern("pattern_date_time", og_pat)