assay<-function(X){
AL<-list("Gain"=axml::newGain,"Ksv"=axml::Ksv)
AL[[X$assay]](X) %>%
merge(.,data.frame(sn=X$sn,Inst=X$Inst,Lot=X$Lot))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.