1# simple function to test if a function is Vectorized 2is_vectorized <- function(x) { 3 is.function(x) && exists("FUN", environment(x), mode = "function") && exists("vectorize.args", environment(x)) 4} 5
1# simple function to test if a function is Vectorized 2is_vectorized <- function(x) { 3 is.function(x) && exists("FUN", environment(x), mode = "function") && exists("vectorize.args", environment(x)) 4} 5