search for: makemessag

.......................] [...................the same about 6 times...................] [............................................................] Error in gnls(circumference ~ Asym/(1 + exp(-(age - xmid)/scal)), data = Orange, : Step halving factor reduced below minimum in NLS step Error in .makeMessage(..., domain = domain) : incorrect number of arguments to "<-" Error in .makeMessage(..., domain = domain) : incorrect number of arguments to "<-" Program received signal SIGABRT, Aborted. 0x0000003294e30155 in raise () from /lib64/libc.so.6 (gdb) bt #0 0x000000329...

...> exactly that. > > http://datatable.r-forge.r-project.org/ > > Matthew > > Hi Matthew, Unfortunately, the load of that library fails (it builds successfully). I'm currently looking into why. Error output looks something similar to: > library(data.table) Error in .makeMessage(..., domain = domain, appendLF = appendLF) : could not find function "packageVersion" Error : .onAttach failed in 'attachNamespace' Error: package/namespace load failed for 'data.table' I googled around a bit and there is mention of a bug in packageVersion but there...

...e, i created the following (from stop()). i'm posting it in case 1) someone sees a problem with this; and 2) someone else has a need. cheers, Greg ---- ## an assert mechanism... assert <- function (shouldbe, ...) { if (!shouldbe) { .Internal(stop(as.logical(TRUE), .makeMessage("assertion failure: ", ..., domain = NULL))) } }

...sits there using 100% cpu for another 41 seconds before finishing and returning me to the top-level interactive prompt. I wondered why... Rprof() seems to say that all the time is being taken in stop(). AFAICT, in this case stop() is basically just doing this: .Internal(stop(as.logical(TRUE), .makeMessage(..., domain=NULL))) where the "..." is just the single string I passed to stop(), e.g., stop("This code is broken."). So next, after exiting (my hacked version of) recover(), and while stop() was still trying to finish up, I attached gdb to my R process. I've appended the...

Not desperately important, but nice to have and possibly of use to others, is the ability to suppress specific warnings rather than suppressing warnings indiscriminately. I often know of a specific warning that I want to ignore (because I know that's it's a false positive/ignorable), but the current design of suppressWarnings() forces me to ignore *any* warnings coming from the

...adds 'evaluated' argument and makes 'exprs' argument in 'stopifnot' like 'exprs' argument in 'withAutoprint'. --- stop.R 2019-05-30 14:01:15.282197286 +0000 +++ stop_new.R 2019-05-30 14:01:51.372187466 +0000 @@ -31,7 +31,7 @@ .Internal(stop(call., .makeMessage(..., domain = domain))) } -stopifnot <- function(..., exprs, local = TRUE) +stopifnot <- function(..., exprs, evaluated = FALSE, local = TRUE) { n <- ...length() if(!missing(exprs)) { @@ -41,21 +41,19 @@ else if(isFALSE(local)) .GlobalEnv else if (is.environment(loca...

Hi, at the R prompt, is it possible to retrieve the last error (as in condition object of class "error")? I'm not asking for geterrmessage(), which only returns the error message (as a character string). I'm basically looking for a .Last.error or .Last.condition, analogously to .Last.value for values, which can be used when it is "too late" (not possible) to go back

I am using a variant of stopifnot a lot. can I suggest that base R extends its functionality? I know how to do this for myself. this is a suggestion for beginners and students. I don't think it would break anything. first, I think it would be more useful if it had an optional character string, so users could write stopifnot( is.matrix(m), "m is not a matrix" ) this would

I want to write an R function using R's C interface that takes a 2-column matrix of increasing, non-overlapping integer intervals and returns a list with those intervals plus some added intervals, such that there are no gaps. For example, it should take the matrix rbind(c(5L, 6L), c(7L, 10L), c(20L, 30L)) and return list(c(5L, 6L), c(7L, 10L), c(11L, 19L), c(20L, 30L)). Because the output is