Nothing
#setOption <- function(option, default, global=TRUE) {
# opt <- if (is.null(current[option][[1]])) default else current[option][[1]]
# if (global) putMi(option, opt)
# else opt
#}
#info <- NULL
#IMP <- NULL
#gui <- NULL
## the following functions have been imported from Rcmdr
miEnv <- function(){
pos <- match("miEnv", search())
if (is.na(pos)) { # Must create it
miEnv <- list()
attach(miEnv, pos = length(search()) - 1)
rm(miEnv)
pos <- match("miEnv", search())
}
return(pos.to.env(pos))
}
putMi <- function(x, value) {
if (missing (value)) {
value <- x
}
assign (as.character (substitute (x)), value, envir = miEnv())
}
getMi <- function(x, mode="any"){
get(as.character (substitute (x)), envir = miEnv(), mode = mode, inherits = FALSE)
}
lsMi <- function () {
ls (envir = miEnv(), all.names=TRUE)
}
existsMi <- function (x, ...) {
exists (as.character (substitute (x)), envir = miEnv(), ...)
}
rmMi <- function (x, ...) {
rm (list=as.character (substitute (x)), envir = miEnv(), ...)
}
removeMi <- function (x, ...) {
rmMi (x, ...)
}
miTclSet <- function(name, value) {
name <- ls(unclass(getMi(name))$env)
tcl("set", name, value)
}
requireData <- function () {
if (existsMi ("data") == TRUE) {
return (TRUE)
}
tkmessageBox(message="Data has not been loaded.",title="Data required",icon="error",type="ok")
return (FALSE)
}
requireIMP <- function () {
if (existsMi ("IMP") == TRUE) {
return (TRUE)
}
tkmessageBox(message="Completed imputation (IMP) required",title="IMP required",icon="error",type="ok")
return (FALSE)
}
requireDataOrImp <- function () {
if (existsMi ("data") == TRUE || existsMi ("IMP") == TRUE) {
return (TRUE)
}
tkmessageBox(message="Data or completed imputation required",title="Data or IMP required",icon="error",type="ok")
return (FALSE)
}
#mainWindow <- function() getMi("mainWindow")
#
#scriptWindow <- function() getMi("scriptWindow")
#
#outputWindow <- function() getMi("outputWindow")
#
#messagesWindow <- function() getMi("messagesWindow")
#
# for internationalization
#gettextMi <- function(...){
# gettext(..., domain="R-mi")
#}
# functions for building dialog boxes
#
#GrabFocus <- function(value){
# if (missing(value)){
# getMi("grab.focus")
# }
# else{
# putMi("grab.focus", value)
# }
#}
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.