Nothing
#### ENTRY FIELDS FRAME ####
type <- "entryfields"
# Change variables accordingly:
frame.name <- "entryframe1"
argument.names <- c("Argument 1","Argument 2","Argument 3")
argument.types <- c("num","num","char")
arguments <- c("arg1","arg2","arg3")
initial.values <- c(1,2,"a")
title <- "A Title"
border <- FALSE
entry.width <- c("2","2","6")
# Do not change this line:
new.frames <- .add.frame(Tab=Tab,type=type
,frame.name=frame.name,argument.names=argument.names
,arguments=arguments,initial.values=initial.values
,title=title,border=border,entry.width=entry.width
,argument.types=argument.types ,new.frames=new.frames)
### end of "Do not change these lines"
#### RADIO BUTTONS FRAME ####
type <- "radiobuttons"
# Change variables accordingly:
frame.name <- "radioframe1"
argument.names <- c("Button 1","Button 2","Button 3")
arguments <- c("buttonarg")
argument.types <- "char"
argument.values <- c("b1","b2","b3")
initial.values <- "b3"
title <- "Button Options"
border <- TRUE
# DO NOT CHANGE THIS LINE:
new.frames <- .add.frame(Tab=Tab,type=type
,frame.name=frame.name,argument.names=argument.names
,arguments=arguments,argument.values=argument.values
,initial.values=initial.values,title=title,border=border
,new.frames=new.frames,argument.types=argument.types)
### end of "Do not change these lines"
#### CHECK BOXES FRAME ####
type <- "checkboxes"
# Change variables accordingly:
frame.name <- "checkboxframe1"
argument.names <- c("Check 1","Check 2","Check 3")
arguments <- c("checkarg1","checkarg2","checkarg3")
initial.values <- c(0,1,1)
title <- "title"
border <- FALSE
# DO NOT CHANGE THIS LINE:
new.frames <- .add.frame(Tab=Tab,type=type
,frame.name=frame.name,argument.names=argument.names
,arguments=arguments,initial.values=initial.values
,title=title,border=border,new.frames=new.frames)
### end of "Do not change these lines"
#### VALUE SLIDER FRAME ####
type <- "valuesliders"
# Change variables accordingly:
frame.name <- "sliderframe1"
argument.names <- c("Slider 1 ","Slider 2 ","Slider 3 ")
arguments <- c("sliderarg1","sliderarg2","sliderarg3")
initial.values <- c(1,5,10)
from <- c(1,1,1)
to <- c(5,50,500)
by <- c(1,10,50)
length <- c(50,100,150)
title <- "Title"
border <- TRUE
# DO NOT CHANGE THIS LINE:
new.frames <- .add.frame(Tab=Tab,type=type,
title=title,border=border,frame.name=frame.name,
argument.names=argument.names,arguments=arguments,
initial.values=initial.values,from=from,to=to,by=by,
length=length,new.frames=new.frames)
### end of "Do not change these lines"
#### SPIN BOX FRAME ####
type <- "spinboxes"
# Change variables accordingly:
frame.name <- "spinboxframe1"
argument.names <- c("Spin Box 1: ","Spin Box 2: ","Spin Box 3: ")
arguments <- c("spinarg1","spingarg2","spingarg3")
initial.values <- c(5,10,20)
from <- c(1,5,10)
to <- c(10,20,30)
by <- c(1,1,1)
entry.width <- "2"
title <- "Spin Box !"
border <- TRUE
# DO NOT CHANGE THIS LINE:
new.frames <- .add.frame(Tab=Tab,type=type,
frame.name=frame.name,argument.names=argument.names,
arguments=arguments,initial.values=initial.values,
from=from,to=to,by=by,entry.width=entry.width,
title=title,border=border,new.frames=new.frames)
### end of "Do not change these lines"
#### LIST BOX FRAME ####
type <- "listbox"
# Change variables accordingly:
frame.name <- "listboxframe1"
arguments <- "listboxarg"
argument.names <- c("Value 1","Value 2","Value 3")
argument.values <- c("value1","value2","value3")
argument.types <- "char"
initial.values <- c("value3")
length <- 4
select.multiple <- FALSE
title <- "A list box:"
border <- TRUE
# DO NOT CHANGE THIS LINE:
new.frames <- .add.frame(Tab=Tab,type=type,
frame.name=frame.name,argument.names=argument.names,
arguments=arguments,argument.values=argument.values,
argument.types=argument.types, initial.values=initial.values,
length=length,select.multiple=select.multiple,
title=title,border=border,new.frames=new.frames)
### end of "Do not change these lines"
#### MANUAL BUTTONS FRAME ####
type <- "buttons"
# Change variables accordingly:
frame.name <- "buttonframe1"
button.name <- "Button 1"
button.function <- "buttonfunction"
button.data <- "d"
button.object <- "saveobject"
button.width <- "12"
button.data.transf <- "matrix" # only matrix available here !
arg.frames <- c("frame1","frame2")
save <- TRUE
show.save <- TRUE
show <- TRUE
button.otherarg <- "" # always start with a ,
# Do not change this line:
new.frames <- .add.frame(Tab=Tab,frame.name=frame.name,
type=type,button.name=button.name,button.width=button.width,
button.data.transf=button.data.transf,
button.function=button.function,button.data=button.data,
button.object=button.object,button.otherarg=button.otherarg,
arg.frames=arg.frames,save=save,show=show,show.save=show.save,
new.frames=new.frames)
### end of "Do not change these lines"
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.