selEnz <-
function(names, enzdata = enzdata) {
enz = enzdata[!is.na(match(enzdata[,1], names)), ]
if( nrow(enz) == 0)
{ stop(paste("No data found in the enzdata named ", names, ".")) }
return(enz)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.