[R] observed power

[Richards, Tom]

Hello:

Here is my current version info:

platform i386-pc-mingw32
arch     x86            
os       Win32          
system   x86, Win32     
status                  
major    1              
minor    2.1            
year     2001           
month    01             
day      15             
language R              

I am using NT 4.0.  Modifying some C code I originally did under R version
1.1.1, I find in the R Extensions manual (p. 34), that I need to change

STRING to STRING_ELT
VECTOR to VECTOR_ELT
etc.

I am using VC++ 6.0, and I simply cannot get that change to work.  I am
going to just give a simple example which shows what is happening.  This
example uses the getAttrib() and getListElement() functions which appear in
many source files.  It works perfectly on 1.1.1, but gives an unread memory
error under 1.2.0.  Am I doing something wrong here?

First, a revised getListElement function, as suggested in the manual:

static SEXP getListElement(SEXP list, char *str)
{
	SEXP elmt = R_NilValue;
	SEXP names = getAttrib(list, R_NamesSymbol);
	int i;
	for (i = 0; i < length(list); i++)
#if R_VERSION < R_Version(1, 2, 0)
		if (strcmp(CHAR(STRING(names)[i]), str) == 0)
		{
			elmt = VECTOR(list)[i];
			break;
		}
#else
	if (strcmp(CHAR(STRING_ELT(names,i)), str) == 0)
	{
		elmt = VECTOR_ELT(list,i);
		break;
	}
#endif
	return elmt;
}


Now, a simple calling function, called foo(), for Windows:

__declspec (dllexport) SEXP foo(SEXP input)
{
	SEXP L,V,tmp;

	input = CDR(input);L = CAR(input);
	input = CDR(input);V = CAR(input);

	tmp = getListElement(L, "b");
	return tmp;
}

I want to feed foo() a list and vector in R, so I made the R function

foo <- function(L,V){res <- .External("foo",L,V);res}

and I called

> foo(list(a=4,b=6),c(2,4,9))

This command yields 6, as it should, in version 1.1.1, but crashes version
1.2.1, with a "memory not read".

If you're still reading at this point, please note that I placed the two C
functions in a source file, and at the top I included:

#define VC

#include <math.h>
#include <R.h>
#include "Defn.h"
#include <Rdefines.h>

Is there something obvious here that I'm missing?  thanks in advance.

Tom Richards
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-help-request at stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._