为什么找不到新的数据帧？

问：

我正在尝试从某人的研究中重现代码。到目前为止，我只是试图分解将日期重塑为单个部分的功能，以了解它到底做了什么。尝试基于原始“data”创建名为“datarule”的新数据帧时，出现“错误：找不到对象'datarule'”。这是怎么回事？可能是一件微不足道的事情，但非常感谢您的帮助。

这是我的 R 代码：

data$test = as.logical(data$test) #convert 'test' col to boolean type True/False

max_learn_block <- max(data[!data$test, "block"])
data <- data %>%
  mutate(block=ifelse(test, max_learn_block+1, block))

datarule <- data %>% 
  mutate(block=block+1) %>% 
  
head(datarule)

以下是原始函数代码：

  if (combine_test) {
    max_learn_block <- max(data[!data$test, "block"])
    data <- data %>%
      mutate(block=ifelse(test, max_learn_block+1, block))
  }
  datarule <- data %>%
    mutate(block=block+1) %>%

提前致谢！