readChar from stdin

Question

我希望一次讀入一個字符，並將其轉換爲字符串命令，以便在輸入空格時執行。 我試圖

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但從未設置爲1第一
• 你誤會字符串連接是如何工作的
• 你誤解了如何從控制檯作品的輸入，這是從根本上通過線而不是性格讓你的方法有一個致命的設計問題（和blocking沒有區別）
• 你終止了錯誤的方式;您的哨點''的值仍被分配。
• 你打開控制檯，從來沒有關閉它（儘管這可能是確定與stdin）
• 你成長的結果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()代替。

現在，我檢查，我明白你也從來沒有接受你問的問題的答案。這是一個有趣的結果，來自我們領域的人有時將自己定義爲所有關於獎勵...