determineAssay<-function(X){
fl <- getFile(X)
u<- c("Gain"=grepl("GAIN",toupper(fl)),"Ksv"=grepl("KSV",toupper(fl)))
names(u[u==TRUE])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.