Nothing
##' Drop dimnames if all elements are \code{NULL}
##'
##' @param x object
##' @return object without empty dimnames
##' @author Claudia Beleites
##' @export
dropdimnames <- function (x){
dimnames (x) <- lon (dimnames (x))
x
}
##' @rdname dropdimnames
##' @param l list
##' @return \code{lon}: \code{NULL} if all elements of \code{dn} are \code{NULL}, otherwise \code{dn}
##' @export
lon <- function (l){
if (all (sapply (l, is.null)))
NULL
else
l
}
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.