a <- function(n)
{
tryCatch(function1(n),
error = function(e)
{
return(NaN)
}
)
}
function1 <- function(n)
{
n^2
}
> a(s)
[1] NaN
> a(1 1)
错误: 未预期的 数值常数 in "a(1 1"
> a(1_1)
错误: 未预期的 输入 in "a(1_"
请问如何让a(1 1)或a(1_1)能回传NaN?

可以用tryCatch(a(1 1), ...)

a()内的值非指定 因此不可能把所有可能放入tryCatch用tryCatch(n)也不行...

我觉得不可能,因为 1 1 or 1_1 不是合法的常数值, 一开始就会被挡掉. 不会跑进tryCatch内部

syntax error的message可以改吗?

可以用字串传进去,里面再eval(parse(text=n)))把字串转回值也就是在外面写 "1 1" 这样, 就不会被挡掉