Nothing
getFlatMatrix <- function(
df
) {
res = matrix("", nrow(df), ncol(df))
for(i in 1:ncol(df)) {
dfi = unlist(lapply(df[, i], paste, collapse=","))
res[, i] = dfi
}
colnames(res) = colnames(df)
res
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.