readChar stdin

Question

私は一度に1文字ずつ読み込み、スペースを入力すると実行する文字列コマンドに変換したいと考えています。 私は

con <- file("stdin") 
open(con, blocking=TRUE) 
while(q!=" "){ 
    #q=scan("",what="", nmax=1) 
    q=readChar(con,1) 
    cmd[i]=q;i=i+1 
} 
eval(cmd) 

を試してみましたが、私は正しくreadChar()を理解していないように見えます。が、いくつかの欠陥と

Answer 1

興味深い質問：あなたはすぐにエラーとプログラムがテストで使用されている未定義のシンボルで中止につながるか

を割り当てた割り当てるq、cmdとi、決してを使用

• whileループの先頭にあるqをテストしますが、前の点に関連する値を決して与えないでください。
• ベクトルにiを割り当てますが、決してに設定しないでください10最初
• あなたは文字列の連結が
• は、あなたのアプローチは致命的な設計上の問題を持っている（とblockingは違いはありません）ので、コンソール作品からの入力は、それが文字でラインで基本的にありませんどのように誤解どのように動作するかを誤解し
• 間違った方法で終了します。あなたののセンチネルの値は ''のままです。
• コンソールを開き、それを閉じたことがない（つまりstdinでOKかもしれませんが）
• あなたは間違った方法VAR結果を育て、それが他のすべての問題

に比べて、ここでは関係ありません。

私たちは、コードを少し修復し、そして、空白で割り当てにはセミコロンと<-をより良いスタイルを使用しない場合（すべての個人/一般的な好み）私たちは

con <- file("stdin") 
open(con, blocking=TRUE) 
cmd <- q <- "" 
i <- 1 
while (q != " ") { 
    q <- readChar(con,1) 
    cmd[i] <- q 
    i <- i+1 
} 
print(cmd) # for exposition only 
close(con) 

を取得し、最終的printではなく点に注意してくださいeval、我々はこれを取得（と私は空白が続くlsコマンド文字を入力）

$ Rscript /tmp/marcusloecher.R 
ls 
[1] "l" "s" " " 
$ 

私はあなたの代わりにreadLines()に見てください。

これで確認しましたが、明らかにあなたもと表示されています。はあなたの質問に対する回答を受け入れます。それは、時にはインセンティブについてのすべてであると自らを定義している、私たちの分野の誰かにとって、面白い結果です。