model2string <- function(model) {
stoichiometricMatrix <- model@S
rownames(stoichiometricMatrix) <- model@met_id
sReactions <- minval:::rearmReactions(S = stoichiometricMatrix, reversible = model@react_rev)
return(sReactions)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.