# NOT RUN {
# fn_body() is like body() but always returns a block:
fn <- function() do()
body(fn)
fn_body(fn)
# It also throws an error when used on a primitive function:
try(fn_body(base::list))
# }
Run the code above in your browser using DataLab