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" 這樣, 就不會被擋掉