在R中提取函数默认参数的简便方法？

Question

说我有一个功能

hx <- function(x, a=6, b = 6){x[1:a, 1:b]}

我想对该函数应用一个函数以提取默认参数。

get_default_args <- function(FUN, arg){
  ???
}
get_default_args(hx, "a")
> 6