Nothing
combine_setup_parameters<-function(runParameters,parameters,parallel=T){
if(parallel==F){
runParameters[[1]]$parameters<-parameters
runParameters[[1]]$parameters$names<-as.character(runParameters[[1]]$parameters$names)
}
if(parallel==T){
if(runParameters[[1]]$separate==T){
runParameters<-rep(runParameters,nrow(parameters)/length(runParameters))
for(i in 1:length(runParameters)){
runParameters[[i]]$parameters<-data.frame(parameters[i,])
}
}
if (runParameters[[1]]$separate==F){
for(i in 1:(ncol(parameters)-1)){
j=i+1
runParameters[[i]]$parameters<-data.frame(parameters$names,parameters[,j])
names(runParameters[[i]]$parameters)<-c("names","values")
}
}
}
return(runParameters)
}
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.