R下windows弹出结果

Question

计算后我想弹出一个 windows 显示消息和结果。在下面的示例中，我想在弹出窗口中显示 windows x 的值。函数winDialog好像执行不了

library(sp)
library(svDialogs)
library(rgdal)

x <- runif(1, 1, 10)
if(x <= 5){
  winDialog("ok", "OK")
} else{
  winDialog("ok", "too big")
}

Answer 1

您可以使用 paste() 组合变量 x 的值和您要打印的文本。注意 winDialog() 函数只在 windows 下有效，在其他 OS.

下无效

x <- runif(1, 1, 10)
winDialog("ok", paste(x, ifelse(x <= 5, "is OK", "is too big")))

Answer 2

这里的代码 pop-up 一个唯一的 windows 显示不同的变量，每个变量在单独的一行上：

library(svDialogs)
tolerance <- 13
X <- 62
Y <- 250.6587
Z <- 7
winDialog("ok", paste("Total number of points:", X, "                                        
Total surface (inch):", format(Y, digit=3),"
Number of points > tolerance:", Z))

R下windows弹出结果

Pop up results in windows under R

r

popup