R语言代码运行错误: "could not find function 'run_APSIM'" 解决方法

R中这段代码'result_folder <- 'E:/weidan/region1wheat/SHIYONG''个报错是为什么，

# 创建文件夹
dir.create(result_folder, showWarnings = FALSE)

# 针对每个站点和深度运行模型，并保存结果
for (i in 1:nrow(soil_df)) {
  site <- soil_df$site[i]
  lat <- soil_df$lat[i]
  lon <- soil_df$lon[i]
  
  for (depth in c(5, 15, 30, 60, 100, 200)) {
    # 设置土壤参数
    soil_parameters <- list(
      Site = site,
      Latitude = lat,
      Longitude = lon,
      Depth = depth,
      LL15 = soil_df$LL15[i],
      DUL = soil_df$DUL[i],
      SAT = soil_df$SAT[i],
      BD = soil_df$BD[i]
    )
    
    # 运行APSIM模型
    file_apsim <- 'E:/weidan/region1wheat/SHIYONG.apsim'
    writeLines(apsim, file_apsim)
    system(paste(apsim_exe, file_apsim), wait = TRUE, ignore.stdout = TRUE, show.output.on.console = FALSE)
    
    # 读取输出结果，并保存为CSV文件
    output_file <- paste0(result_folder, '/', site, '_depth', depth, '.csv')
    output_df <- read_APSIM_output(output_file)
    write.csv(output_df, output_file, row.names = FALSE)
  }
}

# 合并所有CSV文件为一个大的CSV文件
all_files <- list.files(result_folder, full.names = TRUE)
all_data <- do.call(rbind, lapply(all_files, read.csv))
write.csv(all_data, 'E:/weidan/region1wheat/SHIYONG_all.csv', row.names = FALSE)

Error in run_APSIM(sim_parameters, soil_parameters) : could not find function "run_APSIM"

怎么修改内容：

这个错误提示是因为代码中调用了一个名为“run_APSIM”的函数，但是这个函数并没有被定义或载入到R环境中。

如果这个函数是自己定义的，那么需要确保该函数已经被定义或载入到R环境中。

如果这个函数是调用了某个包中的函数，那么需要先载入这个包，或者在代码中明确指定函数所在的包。可以通过添加类似于“包名::函数名”的前缀来指定函数所在的包。例如，如果函数“run_APSIM”在“my_package”这个包中，那么可以将代码修改为：

my_package::run_APSIM(sim_parameters, soil_parameters)

需要根据实际情况来判断如何修改代码。