私はRに少し慣れていないので、書き込もうとしているプログラムについて質問があります。whileループ（最終的にはそれぞれでread.tableを使用）でファイル（ユーザーが好きなだけ）を取り込もうとしていますが、それは私を壊し続けます。これが私がこれまでに持っているものです：
cat("Please enter the full path for your files, if you have no more files to add enter 'X': ")
fil<-readLines(con="stdin", 1)
cat(fil, "\n")
while (!input=='X' | !input=='x'){
inputfile=input
input<- readline("Please enter the full path for your files, if you have no more files to add enter 'X': ")
}
if(input=='X' | input=='x'){
exit -1
}
（コマンドライン（UNIX）から）実行すると、次の結果が得られます。
> library("lattice")
>
> cat("Please enter the full path for your files, if you have no more files to add enter 'X': ")
Please enter the full path for your files, if you have no more files to add enter 'X': > fil<-readLines(con="stdin", 1)
x
> cat(fil, "\n")
x
> while (!input=='X' | !input=='x'){
+ inputfile=input
+ input<- readline("Please enter the full path for your files, if you have no more files to add enter 'X': ")
+ }
Error: object 'input' not found
Execution halted
問題を解決する方法はよくわかりませんが、おそらく単純な問題であると確信しています。助言がありますか？ありがとう！