無法讀取R中執行的系統命令的輸出

Question

我是R新手。所以如果問題對您來說似乎很簡單，請耐心等待。

我試圖從R.

randomGraphPoints<-function(exec="randomcoordinates") 
    { 
     command=paste("java -cp . ",exec) 
     system(command) 
    } 

執行Java程序的執行時上述功能randomGraphPoints示出了一個輸出，如下所示：

> source("Hello.R") 
> randomGraphPoints() 
(-12,7,-6,-7,10,-6,5,-8,-4,2,10,-12,-4,-13,-1,-15,12,12,1,8,-11,-13,-6,-3,6,-3,1,12,10,10,-8,15,-15,6,1,4,-13,-8,-6,2) 

我的計劃是創建一個矩陣，該矩陣由2列組成。輸出應該是這樣的：

-12,7 
-6,-7 
10,-6 
5,-8 
-4,2 
10,-12 
.... 
-6,2 

然後使用Graphviz繪製一個圖。

我被困在需要將R中的系統調用的輸出分配給R變量的階段。

請教我如何繼續。

TIA

Answer 1

使用intern = TRUE從system()得到適當的右輸出。然後你可以安全地分配reault。因此，嘗試函數的最後一行更改爲

system(command, intern = TRUE) 

那麼接下來的職能將是

randomGraphPoints <- function(exec = "randomcoordinates") { 
    command = paste("java -cp . ", exec) 
    system(command, intern = TRUE) 
} 

然後你就可以做

x <- randomGraphPoints() 
matrix(scan(text = x, sep = ","), ncol = 2, byrow = TRUE)