ls.mode <-
function (funname = NULL, where = 1, mode = "function", all.names = FALSE)
{
dimnames(wqm.objects.summary(mode = mode, where = where,
all.names = all.names))[[1]]
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.