Make a regex to match a rich-fill-blank answer exactly, case-insensitively.
Source:R/canvas_create_new_quiz_item.R
case_insensitive.RdMake a regex to match a rich-fill-blank answer exactly, case-insensitively.
Value
A string with alphabetical characters replaced with [Aa] etc,
and regex special characters escaped.
Examples
ns <- asNamespace("examiner")
ns$case_insensitive("Test") |> stringr::str_detect("test", pattern = _)
#> [1] TRUE
ns$case_insensitive("æøå") |> stringr::str_detect("ÆØÅ", pattern = _)
#> [1] TRUE
ns$case_insensitive("x[1]") |> stringr::str_detect("X[1]", pattern = _)
#> [1] TRUE
ns$case_insensitive("x[Aa]") |> stringr::str_detect("Xa", pattern = _)
#> [1] FALSE
ns$case_insensitive("x[Aa]") |> stringr::str_detect("X[Aa]", pattern = _)
#> [1] TRUE