Skip to content

Conversation

@jonhfa
Copy link

@jonhfa jonhfa commented Jun 12, 2014

I integrated bluebomble and Aaron's changes with a few of my own.

I didn't review Aaron's; I merely trusted them. bluebomble's change is necessary to get rsruby to compile on ubuntu. I fixed some additional code triggering gcc warnings.

Lastly, I changed the configuration script so that it tries "R RHOME" and puts the result in config.h so that the resultant library can be run without setting --with-R-dir or setting R_HOME explicitly.

Aaron Goodman and others added 24 commits October 13, 2011 13:44
load this code into R workspace to make it work

traceback.character<- function (x = NULL, max.lines = getOption("deparse.max.lines"))
{
  res <- character()
    if (is.null(x) && (exists(".Traceback", envir = baseenv())))
        x <- get(".Traceback", envir = baseenv())
    n <- length(x)
    if (n == 0L)
        res <- c(res,gettext("No traceback available"))
    else {
        for (i in 1L:n) {
            label <- paste(n - i + 1L, ": ", sep = "")
            m <- length(x[[i]])
            if (!is.null(srcref <- attr(x[[i]], "srcref"))) {
                srcfile <- attr(srcref, "srcfile")
                x[[i]][m] <- paste(x[[i]][m], " at ", basename(srcfile$filename),
                  "#", srcref[1L], sep = "")
            }
            if (m > 1)
                label <- c(label, rep(substr("          ", 1L,
                  nchar(label, type = "w")), m - 1L))
            if (is.numeric(max.lines) && max.lines > 0L && max.lines <
                m) {
              res <- c(res,paste(label[1L:max.lines], x[[i]][1L:max.lines],
                                 sep = ""))
              res <- c(res,paste(label[max.lines + 1L], "..."))
            }
            else res <- c(res,paste(label, x[[i]], sep = ""))
        }
    }
res
}
better support multithreads
work on rails
This also simplifies --with-R-dir handling from b80d441.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment

Labels

None yet

Projects

None yet

Development

Successfully merging this pull request may close these issues.

4 participants