Nothing
hz.merge.control <-
function(input,ref){
#input <- sub.info[,2]
#ref <- rownames(row.plot.data)
input <- as.character(input)
input <- cbind(input,c(1:length(input)))
ref <- as.character(ref)
ref <- cbind(ref,c(1:length(ref)))
.merge <- merge(as.matrix(ref),as.matrix(input),by = 1,all.x = T)
.merge <- .merge[order(as.numeric(as.character(.merge[,2]))),]
return(as.numeric(as.character(.merge[,3])))
}
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.