如果字符變量有值，則對於write.table使用R if else

Question

比方說，我有一個數據框，我需要用不同的后綴保存，給出后綴變量的值或不給出。

后綴值在keyvalue變量中定義，該變量的類型為character。

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

我需要使用帶有條件的if loop將output文件寫入outdir目錄：if 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
)