search for: errorcall

...redistribute it under the terms of the GNU General Public License. For more information about these matters, see http://www.gnu.org/copyleft/gpl.html. (gdb) up #3 0x80927c2 in do_plot_window (call=0x40269760, op=0x4025ceac, args=0x4060f428, env=0x4060f400) at plot.c:373 373 errorcall(call,"invalid \"log=%s\" specification\n",*p); (gdb) list 371 break; 372 default: 373 errorcall(call,"invalid \"log=%s\" specification\n",*p); 374 } 375 p++; The type of *p is char which do...

...n/blob/60a4db2171835067999e96fd2751b6b42c6a6ebc/src/library/base/po/de.po#L892) to maintain a unique ID (not dependent on the actual translation into the current language). A "simple" solution could be to pre- or postfix each message text with an ID, for example this code here else errorcall(call, _("non-numeric argument to function")); # https://github.com/r-devel/r-svn/blob/49597237842697595755415cf9147da26c8d1088/src/main/complex.c#L347 would become else errorcall(call, _("non-numeric argument to function [47]")); or else errorcall(call, _("...

...uble *p; checkArity(op, args); n = asInteger(CAR(args)); args = CDR(args); k = asInteger(CAR(args)); args = CDR(args); - replace = asLogical(CAR(args)); args = CDR(args); + sreplace = CAR(args); args = CDR(args); prob = CAR(args); + if (length(sreplace) != 1) + errorcall(call, _("invalid '%s' argument"), "replace"); + replace = asLogical(sreplace); if (replace == NA_LOGICAL) errorcall(call, _("invalid '%s' argument"), "replace"); if (n == NA_INTEGER || n < 1)

...git a/src/main/array.c b/src/main/array.c index 4b95e33..cedf627 100644 --- a/src/main/array.c +++ b/src/main/array.c @@ -1350,15 +1350,18 @@ SEXP attribute_hidden do_matprod(SEXP call, SEXP op, SEXP args, SEXP rho) if (PRIMVAL(op) == 0) { /* primitive, so use call */ if (ncx != nry) - errorcall(call, _("non-conformable arguments")); + errorcall(call, _("non-conformable arguments of dimension (%d, %d) and (%d, %d)"), + nrx, ncx, nry, ncy); } else if (PRIMVAL(op) == 1) { if (nrx != nry) - error(_("non-conformable arguments")); + error(_...

Full_Name: Partho Bhowmick Version: 2.8.1 OS: Windows XP Submission from: (NULL) (199.43.48.131) While trying to install package sn (I have tried multiple mirrors), I get the following message trying URL 'http://www.revolution-computing.com/cran/bin/windows/contrib/2.8/sn_0.4-10.zip' Content type 'application/zip' length 320643 bytes (313 Kb) opened URL downloaded 313 Kb

...mpiles, at gives no error messages). But typing > library(stataread) Error in dyn.load(x, as.logical(local), as.logical(now)) : unable to load shared library "/usr/local/lib/R/library/stataread/libs/stataread.so": /usr/local/lib/R/library/stataread/libs/stataread.so: undefined symbol: errorcall Error in library(stataread) : .First.lib failed I have: platform i586-pc-linux-gnu arch i586 os linux-gnu system i586, linux-gnu status Under development (unstable) major 1 minor 2.0...

...SET_TAG(tmp, TAG(tmp2)); - } - else - SETCAR(tmp, R_NilValue); - tmp = CDR(tmp); - break; - case RAWSXP: - if (0 <= ii && ii < nx && ii != NA_INTEGER) - RAW(result)[i] = RAW(x)[ii]; - else - RAW(result)[i] = (Rbyte) 0; - break; - default: - errorcall(call, R_MSG_ob_nonsub, type2char(mode)); - } + case LANGSXP: + for (i = 0; i<n; i++) { + if ((ii=INTEGER(indx)[i]) == NA_INTEGER || --ii < 0 || ii >= nx) + SETCAR(tmp, R_NilValue); + else { + tmp2 = nthcdr(x, ii); +...

...nteger") Error in packBits(x, type) : argument 'x' must be raw, integer or logical Taking a closer look at the C code main/character.c do_packBits rutin one can find the following checking if (TYPEOF(x) != RAWSXP && TYPEOF(x) != RAWSXP && TYPEOF(x) != INTSXP) errorcall(call, _("argument 'x' must be raw, integer or logical")); It's obvious that some of the RAWSXP should be LGLSXP

Here is a nasty one: (0.65.1 on linux) > plot(c(1,2,3,4),c(2,4,6,8),log="Y") Segmentation fault (core dumped) [ml at athome ml]$ Seems the bug is in errorcall(). yes, I know the syntax is wrong, but it is an easy mistake to make and it is inconvenient to lose the work space at times. Michael ---------------------------------- E-Mail: Michael Lapsley <mlapsley at ndirect.co.uk> Date: 18-Oct-99 Time: 00:39:06 This message was sent by XFMail ------...

...fter a long time) Garbage collection [nr. 508]... 208859 cons cells free (40%) 0 Kbytes of heap free (0%) Garbage collection [nr. 509]... 208859 cons cells free (40%) 0 Kbytes of heap free (0%) Segmentation fault Debugging yields Program received signal SIGSEGV, Segmentation fault. 0x807d249 in errorcall (call=0x4062ec04, format=0xbf801cc0 "heap memory (6144 Kb) exhausted [needed 0 Kb more]\n See \"help(Memory)\" on how to increase the heap size.\n") at /home/Leisch/src/r-release/R/src/main/errors.c:192 192 { I reproduced this bug on a 2nd machine, even with...

On Sun, 16 Apr 2023 at 12:58, nospam at altfeld-im.de <nospam at altfeld-im.de> wrote: > > I am the author of the *tryCatchLog* package and want to > > - suppress selected conditions (warnings and messages) > - rethrow selected conditions (e.g a specific warning as a message or to "rename" the condition text). > > I could not find any reliable unique

...h = CDR(h); } } else if (h != R_MissingArg) error(_("'...' used in an incorrect context")); } else if (CAR(el) == R_MissingArg) { /* It was an empty element: most likely get here from evalArgs which may have been called on part of the args. */ errorcall(call, _("argument %d is empty"), n); } else if (isSymbol(CAR(el)) && R_isMissing(CAR(el), rho)) { /* It was missing */ errorcall(call, _("'%s' is missing"), CHAR(PRINTNAME(CAR(el)))); } else { if (mode==1) { PROTECT(head);...

...n/array.c >index 4b95e33..cedf627 100644 >--- a/src/main/array.c >+++ b/src/main/array.c >@@ -1350,15 +1350,18 @@ SEXP attribute_hidden do_matprod(SEXP call, SEXP op, SEXP args, SEXP rho) > if (PRIMVAL(op) == 0) { > /* primitive, so use call */ > if (ncx != nry) >- errorcall(call, _("non-conformable arguments")); >+ errorcall(call, _("non-conformable arguments of dimension (%d, %d) and (%d, %d)"), >+ nrx, ncx, nry, ncy); > } > else if (PRIMVAL(op) == 1) { > if (nrx != nry) >- error(_("non-conformable argume...

...code.c R-0.63.orig/src/main/dotcode.c 264,286d263 < SEXP do_dotRCode(SEXP call, SEXP op, SEXP args, SEXP env) < { < DL_FUNC fun; < char buf[128], *p, *q, *vmax; < SEXP retval; < < vmax = vmaxget(); < op = CAR(args); < if (!isString(op)) errorcall(call,"function name must be a string\n"); < < /* make up load symbol & look it up */ < p = CHAR(STRING(op)[0]); < q = buf; while ((*q = *p) != '\0') { p++; q++; } < < if (!(fun=R_FindSymbol(buf))) errorcall(call, < &qu...

...or some speedup considerations -- I found that we currently use isVector() for testing the validity of x in sort(x) whereas I think we should use isVectorAtomic(), actually for S-plus compatibility additionally allowing NULL. Hence I'd propose to replace the test if (!isVector(CAR(args))) errorcall(call, "only vectors can be sorted"); by if(CAR(args) == R_NilValue) return R_NilValue; if(!isVectorAtomic(CAR(args))) errorcall(call, "only atomic vectors can be sorted"); in do_sort(.) in src/main/sort.c . This doesn't quite pass "make check" currently...

The problem seems that ":" always coerces to integer, but should not.. 9.9:12 ## R: [1] 9 10 11 ## S-plus 3.4: [1] 9.9 10.9 11.9 ## and many more examples.... -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.- r-devel mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html Send "info", "help", or

This message is in MIME format --_=XFMail.1.3.p0.Linux:990422185944:4782=_ Content-Type: text/plain; charset=us-ascii R-0.64.0 on RedHat Linux 5.1 Some problems with multivariate fast fourier transform. I have attached the dump of a 30 x 3 matrix that seems to reliably reproduce these problems 1) mvfft doesn't like vectors. It complains about not having enough memory: R>

...tOption1(install("check.condition"))); PROTECT(s); /* needed as per PR#15990. call gets protected by warningcall() */ - warningcall(call, - _("the condition has length > 1 and only the first element will be used")); + if(check != NA_INTEGER && check > 0) + errorcall(call, _("the condition has length > 1")); + else + warningcall(call, + _("the condition has length > 1 and only the first element will be used")); UNPROTECT(1); } if (length(s) > 0) { Index: src/main/options.c =============================================...

...olveNativeRoutine(), lines 146-163. Line 152 looks like a typo: >>here are lines 149-155 >> >> if(!*fun) { >> if(dll.type != FILENAME) { >> *fun = R_FindNativeSymbolFromDLL(buf, &dll, symbol); >> if(!fun) { >> errorcall(call, "cannot resolve native routine"); >> } >> } >> >>and I think the "if(!fun)" should be "if(!*fun)". > > > I think you're right about the typo. > > In the current code, !fun is known to be false, so t...

I'm a day-old R newbie (but a war-weary S veteran), with couple of first-day questions: In R 0.61, this code fails. Ops.test <- function(e1,e2) { e1 <- NextMethod(.Generic) e1 } x <- 4 class(x) <- "test" y <- x < 3 The error message is "Error in NextMethod(.Generic) : negative length vectors are not allowed.". I assume it is a bug.