如何在R中重复此搜索功能？

# 定义一个函数，用于搜索指定关键词在给定向量中的位置
search_keyword <- function(keyword, vector) {
  positions <- c()  # 存储关键词位置的向量
  
  # 遍历向量中的每个元素
  for (i in 1:length(vector)) {
    # 判断当前元素是否包含关键词
    if (grepl(keyword, vector[i])) {
      positions <- c(positions, i)  # 将关键词位置添加到向量中
    }
  }
  
  return(positions)  # 返回关键词位置向量
}

# 示例数据
data <- c("apple", "banana", "orange", "grape", "apple pie", "apple juice")

# 搜索关键词"apple"在示例数据中的位置
positions <- search_keyword("apple", data)

# 打印搜索结果
if (length(positions) > 0) {
  cat("关键词'apple'在示例数据中的位置：", positions, "\n")
} else {
  cat("未找到关键词'apple'在示例数据中的位置。\n")
}