print.ls_str(): FIXME

git-svn-id: https://svn.r-project.org/R/trunk@87076 00db46b3-68df-0310-9c12-caf00c1e9a41
r-devel · Aug 29, 2024 · 7cf7376 · 7cf7376
1 parent 43d5769
commit 7cf7376
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/library/utils/R/str.R b/src/library/utils/R/str.R
@@ -712,6 +712,7 @@ print.ls_str <- function(x, max.level = 1, give.attr = FALSE,
 ##__ str(get(nam, envir = E, mode = M),
 ##__ max.level = max.level, give.attr = give.attr, ...)
 
+ ## FIXME: get() should rather return a *classed* error in this case
  eA <- sprintf("%s:%s", nam, n.)
  o <- tryCatch(get(nam, envir = E, mode = M),
  error = function(e){ attr(e, eA) <- TRUE; e })