initialFileDescDB<-function(){tibble(
tabId='bogus',
isSaved=FALSE,
filePath="?",
anonNo =1,
mode='ptr',
parId=NA, # points to the parent tab (if any)
parMode=NA
)[0,]
}
initialPreProcScriptDB<-function(){
tibble( scriptName='bogus', cmd="bogus", script='bogus')[0,]
}
initialPreProcPageDB<-function(){
tibble( tabId="bogus", tibName="bogus", colName='bogus', scriptName='bogus')[0,]
}
initialTribbleDB<-function(){
tibble(
tabId='bogus',
show=FALSE,
dx=50,
dy=50,
color='lightgrey'
)[0,]
}
initialSvgGridDB<-function(){
tibble(
tabId='bogus',
show=FALSE,
dx=50,
dy=50,
color='lightgrey'
)[0,]
}
initialBackDropDB<-function(){
tibble(
tabId='bogus',
color='white',
checked=TRUE
)[0,]
}
initialServerAsset<-function(){
tibble(
tabId="bogus",
name="bogus", # name of current point array
rowIndex=1,
columnName="bogus", # currently used only by tibbleEditor and could be placed there.
matCol=0, #
ptColName="bogus", # !!! KLUDGE for now. should this default to last col?
selIndex=1, # only used is to determine if in matrix or point mode !!
transformType='Translate', # TODO!!! replace this with selIndex
ptScriptSel=preprocChoices$points[1]
)
}
initialServerAssetDB<-function(){
initialServerAsset()[0,]
}
initialWidgetDB<-function(){
tibble(tabId='Tab0', name='x',column='y',type='character',minVal=NA, maxVal=NA,step=1, selectedWidget='radio')[0,]
}
initialRowGroupDB<-function(){
tibble(tabId='Tab0', name='x',rows=0, colName='col')[0,]
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.