本人刚开始学,不知道这个改用什么函数,代码具体怎么写,求解答

本人刚开始学,不知道这个改用什么函数,代码具体怎么写,求解答图片说明

1.不妨用grep
2.注意匹配的时候.需要转义
图片说明

 CheckSuffix <- function(raw_string, pattern){
  if(length(grep(pattern, raw_string)) == 0){
    return(FALSE)
  }else{
    return(TRUE)
  }
}