能否停用RStudio控制台中的Y/N提示符?

能否停用RStudio控制台中的Y/N提示符?,r,console,prompt,R,Console,Prompt,我正在使用一个名为RAC(用于水产养殖的R包)的R包中的函数。在执行之前,它会在控制台窗口中生成一个Y/N提示。是否有办法取消提示或每次自动回答N 功能Bass_pop__main将生成: 是否要更改输入?[是/否] 下面是一个例子: library(RAC) setwd("../RAC_seabass") #working directory userpath <- "../RAC_seabass" #userpath Bass_pop_skeleton(userpath) #cr

我正在使用一个名为RAC(用于水产养殖的R包)的R包中的函数。在执行之前,它会在控制台窗口中生成一个Y/N提示。是否有办法取消提示或每次自动回答N

功能Bass_pop__main将生成:
是否要更改输入?[是/否]

下面是一个例子:

library(RAC)

setwd("../RAC_seabass") #working directory

userpath <- "../RAC_seabass" #userpath

Bass_pop_skeleton(userpath) #create input and output folders

forcings <- Bass_pop_dataloader(userpath) #load environmental variables

output <- Bass_pop_main("../RAC", forcings) #run growth model
库(RAC)
setwd(“../RAC_seabos”)#工作目录

userpath不确定是否有任何可以从外部提供的设置允许您每次自动回答“否”。但是,我们可以根据我们的要求更改
Bass\u pop\u main
的源代码并使用它。如果在控制台中输入
Bass\u pop\u main
,则源代码可用

library(RAC)

Bass_pop_main_revised <- function (userpath, forcings) {
   rm(list = ls())
   cat("Sea Bass population bioenergetic model\n")
   cat(" \n")
   currentpath = getwd()
   out_pre <- Bass_pop_pre(userpath, forcings)
   Param = out_pre[[1]]
   Tint = out_pre[[2]]
   Gint = out_pre[[3]]
   Food = out_pre[[4]]
   IC = out_pre[[5]]
   times = out_pre[[6]]
   Dates = out_pre[[7]]
   N = out_pre[[8]]
   CS = out_pre[[9]]
   out_RKsolver <- Bass_pop_loop(Param, Tint, Gint, Food, IC, times, N, userpath)
   out_post <- Bass_pop_post(userpath, out_RKsolver, times, Dates, N, CS)
   cat(" ")
   cat("End")
   return(out_post)
}

嗨,我更新了帖子,加入了一个例子。最后一行上方的行生成模型要使用的文件夹和csv文件(Bass_pop_骨架),然后加载它们(Bass_pop_dataloader)。感谢您的帮助!因此,我尝试将此更新的函数添加到R脚本的顶部,但出现以下错误:
Bass\u pop\u pre中的错误(userpath,forcings):无法找到函数“Bass\u pop\u pre”
,因为某些原因,当修改后的函数在R脚本中时,R无法识别这些底层函数。我应该把修改后的函数保存到别处吗?@Zack它找不到与修改后的函数不同的函数
Bass\u pop\u pre
。是否已在脚本顶部加载了
库(RAC)
?我已确认已加载RAC包。其他功能:Bass_pop_骨架、Bass_pop_数据加载器和原始Bass_pop_main都可以正常工作。@Zack,如果您删除了
Bass_pop_main_修订版的
功能。它有效吗?我只能运行包中的函数。除了作为脚本顶部的代码块运行修改后的
Bass\u pop\u main
之外,我还尝试运行了一个未经修改的
Bass\u pop\u main
setwd("../RAC_seabass") 
userpath <- "../RAC_seabass" 
Bass_pop_skeleton(userpath) 
forcings <- Bass_pop_dataloader(userpath) 
output <- Bass_pop_main_revised("../RAC", forcings)