f <- function(foo, bar) {
f()
g()
}
g <- function(foobar) {
h()
utils::untar(foobar)
}
h <- function() {
print('hello')
}
iso <- function() {
## This is never called
}
k <- function() {
x()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.