Fallback on failed glue in label and brief

[yjunechoe]

Summary

Implements a safeguard to fall back to the original string as-is if glue interpolation fails. This is a broad-stroke solution to cases such as when a user regex like {1,2} is preserved in autobrief and triggers an error at glue. The fallback is probably nice to have anyways though, since agents tend to be conservative about throwing errors outright.

Now (attempts glue and falls back to autobrief string as-is):

create_agent(small_table) %>% 
  col_vals_regex(b, "^\\d{1,2}") %>% 
  interrogate() %>% 
  {.$validation_set$brief}
#> 
#> ── Interrogation Started - there is a single validation step ─────────────────────
#> ✔ Step 1: OK.
#> 
#> ── Interrogation Completed ───────────────────────────────────────────────────────
#> [1] "Expect that values in `b` should match the regular expression: `^\\d{1,2}`. "

Previously (attempts glue and errors):

create_agent(small_table) %>% 
  col_vals_regex(b, "^\\d{1,2}") %>% 
  interrogate()
#> Error:
#> ! Failed to parse glue component
#> Caused by error in `parse()`:
#> ! <text>:1:2: unexpected ','
#> 1: 1,
#>      ^

Related GitHub Issues and PRs

• Ref: Bug interpreting regex {} as glue syntax in col_vals_regex() autobriefs #600

Checklist

• I understand and agree to the Code of Conduct.
• I have listed any major changes in the NEWS.
• I have added testthat unit tests to tests/testthat for any new functionality.

[rich-iannone]

LGTM, thanks!