knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(ClinAD)
a <- lapply( X = split(dm[1:3], f = seq_len(nrow(dm))), FUN = Domain ) do.call(rbind, lapply(a, slot, "df")) as.data.frame(t(unique(t(do.call(cbind, lapply(a, slot, "columns"))))))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.