如果上面的行在R中运行时没有错误，则运行此行

# 假设我们有两行代码，第一行是可能会失败的代码
first_line <- function() {
  # 这里写可能会出错的代码
  # 例如：stop("Error occurred") # 强制产生一个错误
  print("First line executed successfully")
}

second_line <- function() {
  print("Second line executed because the first line had no errors")
}

# 使用tryCatch来尝试执行第一行代码
tryCatch({
  first_line()  # 尝试执行第一行
  second_line() # 如果第一行成功，执行第二行
}, error = function(e) {
  # 如果第一行代码出错，这里可以处理错误
  cat("An error occurred: ", e$message, "\n")
})

# 如果没有错误，第二行代码将会执行