видалення рядків після певного символу в заданому тексті

У мене є такий набір даних, як наведений нижче. Я хочу видалити всі символи після символу ©. Як я можу це зробити в R?

data_clean_phrase <- c("Copyright © The Society of Geomagnetism and Earth", 
"© 2013 Chinese National Committee ")

data_clean_df <- as.data.frame(data_clean_phrase)

Наприклад:

 rs<-c("copyright @ The Society of mo","I want you to meet me @ the coffeshop")
 s<-gsub("@.*","",rs)
 s
 [1] "copyright "             "I want you to meet me "

Або якщо ви хочете зберегти символ @:

 s<-gsub("(@).*","\\1",rs)
 s
 [1] "copyright @"             "I want you to meet me @"

EDIT: Якщо ви хочете, щоб вилучити все з останнього @ on, вам просто потрібно слідувати цьому попередньому прикладу з відповідним регулярним виразом. Приклад:

rs<-c("copyright @ The Society of mo located @ my house","I want you to meet me @ the coffeshop")
s<-gsub("(.*)@.*","\\1",rs)
s
[1] "copyright @ The Society of mo located " "I want you to meet me "

З огляду на відповідність, яку ми шукаємо, і sub, і gsub дадуть вам однакову відповідь.