我有一个函数,其中一部分内容如下:
conefor.input <- function(conefor.file, onlyoverall, probmin, index)
{
for(i in 1:l00)
{
cat(paste(conefor.file,
if(onlyoverall=="TRUE")
{onlyoverall<-"onlyoverall"},
distance,
if(probmin=="TRUE")
{probmin<-paste("-pcHeur", min)},
index, sep="\t"),file="conef_command.txt", sep="\n")}
return("conef_command.txt")
}
我的目标是生成 100 行,其中每个输入都由一个选项卡分隔。
当上面的两个“if”语句为真时,没有问题。结果是:
conefor.file\tonlyoverall\tdistance\tpcHeur min\tindex
但是,当上面的两个“if”语句为假时,我会留下两个选项卡,其中“onlyoverall”和“pcHeur”本来应该是,而我真正想要的是根本不采取任何行动,并且只有一个选项卡分隔每个参数.
'if' 语句为假的示例:
conefor.file\t\tdistance\t\tindex
当'if'语句为假时我想要什么:
conefor.file\tdistance\tindex
提前谢谢了