Nothing
get_array <- function(map,map_dims=NULL){
if(is.null(map)){
if(is.null(map_dims)) {
stop("The dims of map are not defined")
} else {
map=array(TRUE,map_dims)
return(map)
}
}
if(is.character(map))
map=RNifti::readNifti(map)
if(!is.null(map_dims)) if(any(dim(map)!=map_dims)) stop("The dims of map: ",
paste(dim(map),sep="x"),
" don't fit the dims of map_dims: ",paste(map_dims,sep="x"))
map
}
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.