subset to end

subset_to_end.R

`[` <- function(x, ...) {
  base::`[`(x, ...)
}

makeActiveBinding(".I", function() {
  sc <- sys.calls()
  fr <- which(vapply(sc, \(x) capture.output(x)[1], character(1)) == "base::`[`(x, ...)")
  fr <- fr[length(fr)]
  sf <- sys.frames()[[fr-1]]
  x <- eval(quote(x), sf)
  NROW(x)
}, .GlobalEnv)

makeActiveBinding(".J", function() {
  sc <- sys.calls()
  fr <- which(vapply(sc, \(x) capture.output(x)[1], character(1)) == "base::`[`(x, ...)")
  fr <- fr[length(fr)]
  sf <- sys.frames()[[fr-1]]
  x <- eval(quote(x), sf)
  NCOL(x)
}, .GlobalEnv)