## Ask something...
user <- dlgInput("Who are you?", Sys.info()["user"])$res
if (!length(user)) { # The user clicked the 'cancel' button
cat("OK, you prefer to stay anonymous!
")
} else {
cat("Hello", user, "")
}
Run the code above in your browser using DataLab