[Rd] recover() (PR#8546)

[KjetilBrinchmannHalvorsen@gmail.com]

After using options(error=recover),
it takes a long time (too long) to get back
to the prompt. Look at:

Browse[1]> recover()

Enter a frame number, or 0 to exit

1: window(test, start = c(15, 1), end = c(17, 1), extend = TRUE)
2: window.ts(test, start = c(15, 1), end = c(17, 1), extend = TRUE)
3: as.ts(window.default(x, ...))
4: window.default(x, ...)
5: function ()
6: eval(quote(browser()), envir = sys.frame(which))
7: eval(expr, envir, enclos)

Selection: recover()
Enter an item from the menu, or 0 to exit
Selection: 0
Browse[1]> recover()

Enter a frame number, or 0 to exit

1: window(test, start = c(15, 1), end = c(17, 1), extend = TRUE)
2: window.ts(test, start = c(15, 1), end = c(17, 1), extend = TRUE)
3: as.ts(window.default(x, ...))
4: window.default(x, ...)
5: function ()
6: eval(quote(browser()), envir = sys.frame(which))
7: eval(expr, envir, enclos)

Selection: 0
Browse[1]> recover()

Enter a frame number, or 0 to exit

1: window(test, start = c(15, 1), end = c(17, 1), extend = TRUE)
2: window.ts(test, start = c(15, 1), end = c(17, 1), extend = TRUE)
3: as.ts(window.default(x, ...))
4: window.default(x, ...)
5: function ()
6: eval(quote(browser()), envir = sys.frame(which))
7: eval(expr, envir, enclos)

Selection: 0
Browse[1]> recover()

Enter a frame number, or 0 to exit

1: window(test, start = c(15, 1), end = c(17, 1), extend = TRUE)
2: window.ts(test, start = c(15, 1), end = c(17, 1), extend = TRUE)
3: as.ts(window.default(x, ...))
4: window.default(x, ...)
5: function ()
6: eval(quote(browser()), envir = sys.frame(which))
7: eval(expr, envir, enclos)

Selection: 0
Browse[1]> recover()

Enter a frame number, or 0 to exit

1: window(test, start = c(15, 1), end = c(17, 1), extend = TRUE)
2: window.ts(test, start = c(15, 1), end = c(17, 1), extend = TRUE)
3: as.ts(window.default(x, ...))
4: window.default(x, ...)
5: function ()
6: eval(quote(browser()), envir = sys.frame(which))
7: eval(expr, envir, enclos)

Selection: 0
Browse[1]>

Enter a frame number, or 0 to exit

1: window(test, start = c(15, 1), end = c(17, 1), extend = TRUE)
2: window.ts(test, start = c(15, 1), end = c(17, 1), extend = TRUE)
3: as.ts(window.default(x, ...))
4: window.default(x, ...)

Selection: 0
 >

I had to type 0 [to exit] 6 times to actually
exit!


Kjetil

(windows, R2.2.1 from CRAN)