Nothing
exit.pmg = function(w) {
## use pmg.window global by name
pmg.window$Hide()
pmg.window$Destroy()
assignInNamespace("pmg.window",NULL, "ibestGUI")
}
## genericWidget lists
read.table.list = list(
title = "read.table()",
help = "read.table",
action = list(
beginning = "read.table(",
ending = ")"
),
type = "text", #either text or graphic
variableType = "fileurl",
assignto = TRUE,
arguments = list(
arguments = list(
header=FALSE.list,
sep = list(
type = "gedit",
text = "\"\""
),
# quote = list(
# type = "gedit",
# text = "\"'"
# ),
dec = list(
type = "gedit",
text = "\".\""
),
skip = list(
type = "gedit",
text = 0
),
check.names = TRUE.list,
comment.char = list(
type = "gedit",
text = "\"#\""
)
)
)
)
## fwf
read.fwf.list = list(
title = "read.fwf()",
help = "read.fwf",
action = list(
beginning = "read.fwf(",
ending = ")"
),
type = "text", #either text or graphic
variableType = "fileurl",
assignto = TRUE,
arguments = list(
arguments = list(
widths = list(
type="gedit",
text = ""
),
header=FALSE.list,
sep = list(
type = "gedit",
text = "\"\""
),
as.is = FALSE.list,
skip = list(
type = "gedit",
text = 0
)
)
)
)
## csv
read.csv.list = list(
title = "read.csv()",
help = "read.csv",
action = list(
beginning = "read.csv(",
ending = ")"
),
type = "text", #either text or graphic
variableType = "fileurl",
assignto = TRUE,
arguments = list(
arguments = list(
header=FALSE.list,
sep = list(
type = "gedit",
text = "\"\""
),
# quote = list(
# type = "gedit",
# text = "\"'"
# ),
dec = list(
type = "gedit",
text = "\".\""
)
)
)
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.