meshRows_hda <-
function(df1, df2) {
rn <- rownames(df1)[{rownames(df1) %in% rownames(df2)}];
ndf1 <- df1[rn, ];
ndf2 <- df2[rn, ];
return(list(ndf1, ndf2))}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.