The R Project SVN R

Rev

Rev 33359 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 33359 Rev 33419
Line 450... Line 450...
450 
    	UNPROTECT(1);
 450 
    	UNPROTECT(1);
451 
	return tmp;
 451 
	return tmp;
452 
    case STRSXP:
 452 
    case STRSXP:
453 
	dnames = dng(x, R_DimNamesSymbol);
 453 
	dnames = dng(x, R_DimNamesSymbol);
454 
	if (dnames == R_NilValue)
 454 
	if (dnames == R_NilValue)
455 
	    error(_("no dimnames attribute for array"));
 455 
	    error(_("no 'dimnames' attribute for array"));
456 
	dnames = VECTOR_ELT(dnames, dim);
 456 
	dnames = VECTOR_ELT(dnames, dim);
457 
	return stringSubscript(s, ns, nd, dnames, strg, &stretch, in);
 457 
	return stringSubscript(s, ns, nd, dnames, strg, &stretch, in);
458 
    case SYMSXP:
 458 
    case SYMSXP:
459 
	if (s == R_MissingArg)
 459 
	if (s == R_MissingArg)
460 
	    return nullSubscript(nd);
 460 
	    return nullSubscript(nd);