Nothing
# TODO: Add comment
#
# Author: ianfellows
###############################################################################
########################################################################
#
# iplots: Scatter
#
########################################################################
.makeIplotDialog <- function(){
RFunction <- J("org.rosuda.deducer.widgets.param.RFunction")
RFunctionDialog <- J("org.rosuda.deducer.widgets.param.RFunctionDialog")
ParamVariable <- J("org.rosuda.deducer.widgets.param.ParamVariable")
ParamCharacter<- J("org.rosuda.deducer.widgets.param.ParamCharacter")
rf <- new(RFunction,"Interactive Scatter Plot")
rf$setName("iplot")
rf$setRequiresVariableSelector(TRUE)
var1 <- new(ParamVariable,"x")
rf$add(var1)
var2 <- new(ParamVariable,"y")
rf$add(var2)
pcx <- new(ParamCharacter,"xlab")
pcx$setTitle("x label")
rf$add(pcx)
pcy <- new(ParamCharacter,"ylab")
pcy$setTitle("y label")
rf$add(pcy)
rfd <- new(RFunctionDialog, rf)
rfd$setLocationRelativeTo(.jnull())
rfd$setSize(460L,350L)
rfd
}
########################################################################
#
# iplots: Histogram
#
########################################################################
.makeIhistDialog <- function(){
RFunction <- J("org.rosuda.deducer.widgets.param.RFunction")
RFunctionDialog <- J("org.rosuda.deducer.widgets.param.RFunctionDialog")
ParamVariable <- J("org.rosuda.deducer.widgets.param.ParamVariable")
ParamNumeric<- J("org.rosuda.deducer.widgets.param.ParamNumeric")
rf <- new(RFunction)
rf$setName("ihist")
rf$setTitle("Interactive Histogram")
rf$setRequiresVariableSelector(TRUE)
var1 <- new(ParamVariable,"var")
rf$add(var1)
pcx <- new(ParamNumeric,"binw")
pcx$setTitle("Bin Width")
pcx$setRequired(FALSE)
pcx$setLowerBound(0)
rf$add(pcx)
rfd <- new(RFunctionDialog, rf)
rfd$setLocationRelativeTo(.jnull())
rfd$setSize(460L,300L)
rfd
}
########################################################################
#
# iplots: Bar
#
########################################################################
.makeIbarDialog <- function(){
RFunction <- J("org.rosuda.deducer.widgets.param.RFunction")
RFunctionDialog <- J("org.rosuda.deducer.widgets.param.RFunctionDialog")
ParamVariable <- J("org.rosuda.deducer.widgets.param.ParamVariable")
ParamLogical<- J("org.rosuda.deducer.widgets.param.ParamLogical")
rf <- new(RFunction)
rf$setName("ibar")
rf$setTitle("Interactive Bar Chart")
rf$setRequiresVariableSelector(TRUE)
var1 <- new(ParamVariable,"var")
rf$add(var1)
pcx <- new(ParamLogical,"isSpine")
pcx$setTitle("Spine Plot")
rf$add(pcx)
rfd <- new(RFunctionDialog, rf)
rfd$setLocationRelativeTo(.jnull())
rfd$setSize(460L,300L)
rfd
}
########################################################################
#
# iplots: Mosaic
#
########################################################################
.makeImosaicDialog <- function(){
RFunction <- J("org.rosuda.deducer.widgets.param.RFunction")
RFunctionDialog <- J("org.rosuda.deducer.widgets.param.RFunctionDialog")
ParamMultipleVariables <- J("org.rosuda.deducer.widgets.param.ParamMultipleVariables")
ParamCharacter<- J("org.rosuda.deducer.widgets.param.ParamCharacter")
rf <- new(RFunction)
rf$setName("imosaic")
rf$setTitle("Interactive Mosaic Chart")
rf$setRequiresVariableSelector(TRUE)
var1 <- new(ParamMultipleVariables,"vars")
rf$add(var1)
pcx <- new(ParamCharacter,"type")
pcx$setTitle("Type")
pcx$setOptions(c("observed", "expected", "fluctuation","same.bin.size",
"multiple.barchart"))
pcx$setViewType(pcx$VIEW_COMBO)
rf$add(pcx)
rfd <- new(RFunctionDialog, rf)
rfd$setLocationRelativeTo(.jnull())
rfd$setSize(460L,400L)
rfd
}
########################################################################
#
# iplots: Box long
#
########################################################################
.makeIboxLongDialog <- function(){
RFunction <- J("org.rosuda.deducer.widgets.param.RFunction")
RFunctionDialog <- J("org.rosuda.deducer.widgets.param.RFunctionDialog")
ParamVariable <- J("org.rosuda.deducer.widgets.param.ParamVariable")
rf <- new(RFunction)
rf$setName("ibox")
rf$setTitle("Interactive Box Plot")
rf$setRequiresVariableSelector(TRUE)
var1 <- new(ParamVariable,"y")
var1$setName(.jnull())
rf$add(var1)
var2 <- new(ParamVariable,"x")
var2$setName(.jnull())
rf$add(var2)
rfd <- new(RFunctionDialog, rf)
rfd$setLocationRelativeTo(.jnull())
rfd$setSize(460L,300L)
rfd
}
########################################################################
#
# iplots: Box wide
#
########################################################################
.makeIboxWideDialog <- function(){
RFunction <- J("org.rosuda.deducer.widgets.param.RFunction")
RFunctionDialog <- J("org.rosuda.deducer.widgets.param.RFunctionDialog")
ParamMultipleVariables <- J("org.rosuda.deducer.widgets.param.ParamMultipleVariables")
ParamCharacter<- J("org.rosuda.deducer.widgets.param.ParamCharacter")
rf <- new(RFunction)
rf$setName("ibox")
rf$setTitle("Interactive Box Plot")
rf$setRequiresVariableSelector(TRUE)
var1 <- new(ParamMultipleVariables,"Variables")
var1$setName(.jnull())
rf$add(var1)
rfd <- new(RFunctionDialog, rf)
rfd$setLocationRelativeTo(.jnull())
rfd$setSize(460L,400L)
rfd
}
########################################################################
#
# iplots: Par coord plot
#
########################################################################
.makeIpcpDialog <- function(){
RFunction <- J("org.rosuda.deducer.widgets.param.RFunction")
RFunctionDialog <- J("org.rosuda.deducer.widgets.param.RFunctionDialog")
ParamMultipleVariables <- J("org.rosuda.deducer.widgets.param.ParamMultipleVariables")
ParamCharacter<- J("org.rosuda.deducer.widgets.param.ParamCharacter")
rf <- new(RFunction)
rf$setName("ipcp")
rf$setTitle("Interactive Parallel Coordinate Plot")
rf$setRequiresVariableSelector(TRUE)
var1 <- new(ParamMultipleVariables,"Variables")
var1$setName(.jnull())
rf$add(var1)
rfd <- new(RFunctionDialog, rf)
rfd$setLocationRelativeTo(.jnull())
rfd$setSize(460L,400L)
rfd
}
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.