Nothing
#' @useDynLib jsonlite C_is_recordlist
is_recordlist_c <- function(x){
.Call(C_is_recordlist, x)
}
is_recordlist_r <- function(x) {
if (!(is.unnamedlist(x) && length(x))) {
return(FALSE)
}
at_least_one_object = FALSE
for(i in x){
if(!(is.namedlist(i) || is.null(i))) return(FALSE)
if(!at_least_one_object && is.namedlist(i)) at_least_one_object <- TRUE
}
return(at_least_one_object)
}
is.recordlist <- is_recordlist_c;
is.namedlist <- function(x) {
isTRUE(is.list(x) && !is.null(names(x)))
}
is.unnamedlist <- function(x) {
isTRUE(is.list(x) && is.null(names(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.