R if else for write.table 如果字符变量有值

Question

说，我有一个数据框，我需要用不同的后缀保存它，给定后缀变量的值与否。

后缀值在keyvalue变量中定义，为字符型。

keyvalue ="_TRP-1"
outdir= "/user/path/results/"
sample= "ADAS"

我需要使用if loop 将我的output 文件写入outdir 目录，条件是：如果keyvalue 不等于na 或else

这是我尝试过的，

if (!is.na(keyvalue)){
    write.table(output, paste(outdir, sample, keyvalue,"_scores.tsv", sep=""), sep="\t", row.names=F, quote=F)

}else{
  write.table(output, paste(outdir, sample,"_scores.tsv", sep=""), sep="\t", row.names=F, quote=F)

}

最后，我想要一个名为ADAS_TRP-1_scores.tsv 的数据表/文件，给定一个keyvalue，否则一个名为ADAS_scores.tsv 的文件。但是，以上行没有生成任何表格和错误消息，任何建议都值得赞赏。 谢谢

Answer 1

如果您能提供错误消息将非常有帮助。 但乍一看，这有两个问题：

1. 您在下面使用sample_id，但只定义了sample。
2. 您的outdir= "/user/path/results"-字符末尾缺少/。

所以代码是：

write.table(
  output,
  paste( sample, keyvalue,"_scores.tsv", sep=""), sep="\t",
  row.names=F, quote=F
)