从列表中获取函数的名称

Question

有没有办法从列表中获取函数的名称？例如，可以做这样的事情吗？

sqrt <- function(x){
 squared <- (x*x)
}

divide <- function(x){
 half <- (x/2)
}

funclist <- list(sqrt, divide)

for(i in seq_along(funclist)){
printnameoffunction(funclist[[i]])
}