#- name auf Funktionsaufruf extrahieren
# Name <- Funktion(...)
# grap_call_name(Name)
grap_call_name <- function(x) {
rsl <- deparse(substitute(x))
unlist(strsplit(rsl, " <- "))[1]
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.