Question: After calculation I would like to pop up a windows displaying a message and the results. In the following example I would like to display in the pop up windows the value of x. The function winDialog seems to not be able to perform it.

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

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

```

Answer: 
You can use `paste()` to combine the value of your variable `x` and the text you want to print. Note that the `winDialog()` function only works under windows and not under other OS.

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

```

[![Dialog box](https://i.stack.imgur.com/59wJX.png)](https://i.stack.imgur.com/59wJX.png)
Here the code to pop-up a unique windows displaying different variable and each on a separate line:

```
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))

```