Nothing
get_deductive_code_values <- function(x,
name="id") {
if (all(is.null(x)) || all(is.na(x))) {
return(x);
}
if (name %in% names(x)) {
res <- unlist(x[name]);
} else {
res <- NULL;
}
if (any(unlist(lapply(x, 'is.list')))) {
### Children; call ourselves and return result
res <- c(res,
unlist(lapply(x,
get_deductive_code_values,
name=name)));
} else {
### No children; we extracted the only value, so return it.
return(res);
}
res <- unname(sort(unique(res)));
return(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.