The R Project SVN R

Rev

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

Rev 30998 Rev 31049
Line 2324... Line 2324...
2324 
	 side = 3,
 2324 
	 side = 3,
2325 
	 line = 0,
 2325 
	 line = 0,
2326 
	 outer = TRUE,
 2326 
	 outer = TRUE,
2327 
	 at = NA,
 2327 
	 at = NA,
2328 
	 adj = NA,
 2328 
	 adj = NA,
- 
 
 2329 
	 padj = NA,
2329 
	 cex = NA,
 2330 
	 cex = NA,
2330 
	 col = NA,
 2331 
	 col = NA,
2331 
	 font = NA,
 2332 
	 font = NA,
2332 
	 vfont = NULL,
 2333 
	 vfont = NULL,
2333 
	 ...) */
 2334 
	 ...) */
Line 2395... Line 2396...
2395 
    nadj = length(adj);
 2396 
    nadj = length(adj);
2396 
    if (nadj <= 0) errorcall(call, "zero length \"adj\" specified");
 2397 
    if (nadj <= 0) errorcall(call, "zero length \"adj\" specified");
2397 
    if (n < nadj) n = nadj;
 2398 
    if (n < nadj) n = nadj;
2398 
    args = CDR(args);
 2399 
    args = CDR(args);
2399 
 
 2400 
 
2400 
    /* Arg6b : padj= */
 2401 
    /* Arg7 : padj= */
2401 
    PROTECT(padj = coerceVector(CAR(args), REALSXP));
 2402 
    PROTECT(padj = coerceVector(CAR(args), REALSXP));
2402 
    npadj = length(padj);
 2403 
    npadj = length(padj);
2403 
    if (npadj <= 0) errorcall(call, "zero length \"padj\" specified");
 2404 
    if (npadj <= 0) errorcall(call, "zero length \"padj\" specified");
2404 
    if (n < npadj) n = npadj;
 2405 
    if (n < npadj) n = npadj;
2405 
    args = CDR(args);
2406 
    args = CDR(args);
2406
2407
2407 
    /* Arg7 : cex */
 2408 
    /* Arg8 : cex */
2408 
    PROTECT(cex = FixupCex(CAR(args), 1.0));
 2409 
    PROTECT(cex = FixupCex(CAR(args), 1.0));
2409 
    ncex = length(cex);
 2410 
    ncex = length(cex);
2410 
    if (ncex <= 0) errorcall(call, "zero length \"cex\" specified");
 2411 
    if (ncex <= 0) errorcall(call, "zero length \"cex\" specified");
2411 
    if (n < ncex) n = ncex;
 2412 
    if (n < ncex) n = ncex;
2412 
    args = CDR(args);
 2413 
    args = CDR(args);
2413 
 
 2414 
 
2414 
    /* Arg8 : col */
 2415 
    /* Arg9 : col */
2415 
    rawcol = CAR(args);
 2416 
    rawcol = CAR(args);
2416 
    PROTECT(col = FixupCol(rawcol, R_TRANWHITE));
 2417 
    PROTECT(col = FixupCol(rawcol, R_TRANWHITE));
2417 
    ncol = length(col);
 2418 
    ncol = length(col);
2418 
    if (ncol <= 0) errorcall(call, "zero length \"col\" specified");
 2419 
    if (ncol <= 0) errorcall(call, "zero length \"col\" specified");
2419 
    if (n < ncol) n = ncol;
 2420 
    if (n < ncol) n = ncol;
2420 
    args = CDR(args);
 2421 
    args = CDR(args);
2421 
 
 2422 
 
2422 
    /* Arg9 : font */
 2423 
    /* Arg10 : font */
2423 
    PROTECT(font = FixupFont(CAR(args), NA_INTEGER));
 2424 
    PROTECT(font = FixupFont(CAR(args), NA_INTEGER));
2424 
    nfont = length(font);
 2425 
    nfont = length(font);
2425 
    if (nfont <= 0) errorcall(call, "zero length \"font\" specified");
 2426 
    if (nfont <= 0) errorcall(call, "zero length \"font\" specified");
2426 
    if (n < nfont) n = nfont;
 2427 
    if (n < nfont) n = nfont;
2427 
    args = CDR(args);
 2428 
    args = CDR(args);
2428 
 
 2429 
 
2429 
    /* Arg10 : vfont */
 2430 
    /* Arg11 : vfont */
2430 
    PROTECT(vfont = FixupVFont(CAR(args)));
 2431 
    PROTECT(vfont = FixupVFont(CAR(args)));
2431 
    if (!isNull(vfont))
 2432 
    if (!isNull(vfont))
2432 
	vectorFonts = TRUE;
 2433 
	vectorFonts = TRUE;
2433 
    args = CDR(args);
 2434 
    args = CDR(args);
2434 
 
 2435