embrase_with_curly_brackets.R

embrase <- function(string){
  if(is.na(string)){
    string
  } else {
    string |> 
      str_remove_all("[\\{\\}]") |> 
      str_replace_all("((?<=[ABCDEFGHIJKLMNOPQRSTUVWXYZАБВГДЕËЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ]))",
                      "\\}\\1") |> 
      str_replace_all("((?=[ABCDEFGHIJKLMNOPQRSTUVWXYZАБВГДЕËЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ]))",
                      "\\1\\{")
  }
}