Displaying 2 results from an estimated 2 matches for "if_err".
Did you mean:
tf_err
2009 Feb 22
2
Semantics of sequences in R
...rep(x,length(y)),
rep(y,each = length(x)),
SIMPLIFY = FALSE ), # don't coerce booleans to numerics
length(x), length(y),
dimnames = list( names(x), names(y) ) )
# if arg evaluation gives error, return "Err", else its value
if_err <-
function(expr)
{ if (class(try(expr,silent = TRUE)) == "try-error") "Err"
else expr }
# {} needed so else will parse properly
# does f(x) have the same class as x?
keep_class <-
function(f)
function(x)
if_err( all(class(x) == class(f(x))))
seqt...
2009 Feb 22
2
Semantics of sequences in R
...rep(x,length(y)),
rep(y,each = length(x)),
SIMPLIFY = FALSE ), # don't coerce booleans to numerics
length(x), length(y),
dimnames = list( names(x), names(y) ) )
# if arg evaluation gives error, return "Err", else its value
if_err <-
function(expr)
{ if (class(try(expr,silent = TRUE)) == "try-error") "Err"
else expr }
# {} needed so else will parse properly
# does f(x) have the same class as x?
keep_class <-
function(f)
function(x)
if_err( all(class(x) == class(f(x))))
seqt...