og_pat <- get_pattern("pattern_date_time")
set_pattern("pattern_date_time", create_pattern_date())
glue::glue("Default pattern: {og_pat}")
glue::glue("Updated pattern: {get_pattern('pattern_date_time')}")
set_pattern("pattern_date_time", og_pat)
Run the code above in your browser using DataLab