删除括号与它们之间的文本

Question

数据帧：

a<- as.character(rep("Sick (Atlas) (7:24)", 6))
b<- as.character(rep("20/08/2014", 6))
id<- as.character(rep("234", 6))
df<- data.frame(a,b,id)
df$a<-as.character(df$a)

我想删除(Atlas)。我试过了

df <- as.data.frame(sapply(df,gsub,pattern="(Atlas)",replacement=""))

但它只删除Atlas并留下括号：

在阅读gsub的帮助后，我认为括号不是正则表达式。所以我尝试使用反斜杠，但它也没有用。

df <- as.data.frame(sapply(df,gsub,pattern="\(\Atlas\)\",replacement=""))

非常感谢任何帮助。