能否停用RStudio控制台中的Y/N提示符?
我正在使用一个名为RAC(用于水产养殖的R包)的R包中的函数。在执行之前,它会在控制台窗口中生成一个Y/N提示。是否有办法取消提示或每次自动回答N 功能Bass_pop__main将生成:能否停用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
是否要更改输入?[是/否]
下面是一个例子:
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)