##' @export
planeval <- function(coord,...) {
unlist(lapply(coord,function(z) {
if (is.numeric(z)) return(z)
switch(tolower(z),
x=,
median=,
sagittal=1,
y=,
coronal=,
frontal=2,
z=,
transverse=,
axial=3
)
}))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.