Nothing
cardOrder <- function(xlist){
x <- xlist
len <- unlist(lapply(x,length))
unlen <- sort(unique(len))
x2 <- NULL
for (i in seq(along=unlen)){
x2 <- c(x2, x[len==unlen[i]])
}
x2
}
## Sorting lists
##
listOrder <- function(x) UseMethod('listOrder')
listOrder.numeric <- function(x){ #print("numeric"); print(x);
cl <- class(x)
x <- x[order(x)]
class(x)<- cl
x
}
listOrder.list <- function(x){ #print("list "); print(x);
cl <- class(x)
## print("----------------");print(x)
##x <- lapply(x,function(v)listOrder(v))
x <- lapply(x,
function(v){
#print(class(v))
#listOrder(v)
if (class(v)=="list")
listOrder.list(v)
else {
cl <- class(v)
x <- v[order(v)]
class(v)<- cl
v
}
}
)
class(x)<- cl
x
}
listOrder.default <- function(x){ #print("default"); print(x);
x
}
## listOrder <- function(x){ #print("list "); print(x);
## cl <- class(x)
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.