The R Project SVN R

Rev

Rev 16318 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 16318 Rev 16321
Line 93... Line 93...
93 
 
 93 
 
94 
SEXP mkChar(const char *name)
 94 
SEXP mkChar(const char *name)
95 
{
 95 
{
96 
    SEXP c;
 96 
    SEXP c;
97 
 
 97 
 
98 
    if (streql(name, "NA"))
 98 
    /*    if (streql(name, "NA"))
99 
	return (NA_STRING);
 99 
	  return (NA_STRING);*/
100 
    c = allocString(strlen(name));
 100 
    c = allocString(strlen(name));
101 
    strcpy(CHAR(c), name);
 101 
    strcpy(CHAR(c), name);
102 
    return c;
 102 
    return c;
103 
}
 103 
}
104 
 
 104