如何在 R 中的字符串中添加缺少的右括号？

我想为具有左括号但缺少右括号的字符串添加右括号。 例如，我想将“狗在公园散步（ABC）”修改为“狗在公园散步（ABC）”。

我发现了类似的问题和解决方案，但它是在Python中（如何在Python中的字符串中添加缺少的右括号？）。我尝试修改R中使用的代码但无济于事。有人可以帮我解决这个问题吗？

我尝试修改原始的 python 解决方案，因为 R 无法识别“r”，并且“\”已被“\\”替换，但此解决方案无法正常工作，并且不会捕获我想要的括号之前的字符串喜欢补充：

text = "The dog walked (ABC in the park"
str_replace_all(text, '\\([A-Z]+(?!\\))\\b', '\\)') 
text

有效的Python解决方案如下：

text = "The dog walked (ABC in the park"
text = re.sub(r'(\([A-Z]+(?!\))\b)', r"\1)", text)
print(text)

Try this

stringr::str_replace_all(text, '\\([A-Z]+(?!\\))\\b', '\\0\\)') 

• output

"The dog walked (ABC) in the park"