[問題] 輸入錯誤格式

[suiming (台灣fighting!)]

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?

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 27.244.16.25
※ 文章網址: http://www.ptt.cc/bbs/R_Language/M.1413020993.A.64E.html
→ Wush978: 可以用tryCatch(a(1 1),  ...)
→ suiming: a()內的值非指定 因此不可能把所有可能放入tryCatch
→ suiming: 用tryCatch(n)也不行...
推 bxxl: 我覺得不可能,因為 1 1 or 1_1 不是合法的常數值, 一開始就
→ bxxl: 會被擋掉. 不會跑進tryCatch內部
→ suiming: syntax error的message可以改嗎?
→ bxxl: 可以用字串傳進去,裡面再eval(parse(text=n)))把字串轉回值
→ bxxl: 也就是在外面寫 "1 1" 這樣, 就不會被擋掉