The R Project SVN R

Rev

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

Rev 19134 Rev 19135
Line 2236... Line 2236...
2236 
    nTicks = asInteger(CAR(args)); args = CDR(args);
 2236 
    nTicks = asInteger(CAR(args)); args = CDR(args);
2237 
    tickType = asInteger(CAR(args)); args = CDR(args);
 2237 
    tickType = asInteger(CAR(args)); args = CDR(args);
2238 
    xlab = CAR(args); args = CDR(args);
 2238 
    xlab = CAR(args); args = CDR(args);
2239 
    ylab = CAR(args); args = CDR(args);
 2239 
    ylab = CAR(args); args = CDR(args);
2240 
    zlab = CAR(args); args = CDR(args);
 2240 
    zlab = CAR(args); args = CDR(args);
- 
 
 2241 
    if (!isString(xlab) || length(xlab) < 1)
- 
 
 2242 
	error("`xlab' must be a character vector of length 1");
- 
 
 2243 
    if (!isString(ylab) || length(ylab) < 1)
- 
 
 2244 
	error("`ylab' must be a character vector of length 1");
- 
 
 2245 
    if (!isString(zlab) || length(zlab) < 1)
- 
 
 2246 
	error("`zlab' must be a character vector of length 1");
2241 
 
 2247 
 
2242 
    if (R_FINITE(Shade) && Shade <= 0) Shade = 1;
 2248 
    if (R_FINITE(Shade) && Shade <= 0) Shade = 1;
2243 
    if (R_FINITE(ltheta) && R_FINITE(lphi) && R_FINITE(Shade))
 2249 
    if (R_FINITE(ltheta) && R_FINITE(lphi) && R_FINITE(Shade))
2244 
	DoLighting = TRUE;
 2250 
	DoLighting = TRUE;
2245 
    else
 2251 
    else