Description Usage Arguments Value Author(s) References Examples
Ask for a text string in a pop up window.
1 2 | modalDialog(title, question, entryInit, top = NULL, entryWidth = 20,
returnValOnCancel = "ID_CANCEL", do.grab = FALSE)
|
title |
Text string for the title bar of the appering window. |
question |
Text string for the |
entryInit |
Default value of answer. |
top |
Text string for the |
entryWidth |
Integer for the |
returnValOnCancel |
Text
string for the returned value on |
do.grab |
Logical.
|
The text string entered, or returnValOnCancel
.
From the examples compiled by James Wettenhall.
http://bioinf.wehi.edu.au/~wettenhall/RTclTkExamples/modalDialog.html
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | Menus <-
list(MainUser =
list(label = "Test of user drag down menu - Position of \"vertices\"",
command = function(object, ...)
print(Positions(list(...)$Arguments$vertexList))),
MainUser =
list(label = "Test of user drag down menu - modalDialog",
command = function(object, ...) {
Args <- list(...)$Arguments
ReturnVal <- modalDialog("Test modalDialog Entry", "Enter name",
Args$control$title,
graphWindow = Args$graphWindow)
print(ReturnVal)
if (ReturnVal == "ID_CANCEL")
return() } )
)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.