The R Project SVN R

Rev

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

Rev 30186 Rev 30316
Line 2015... Line 2015...
2015 
	txt = coerceVector(txt, EXPRSXP);
 2015 
	txt = coerceVector(txt, EXPRSXP);
2016 
    else if (!isExpression(txt))
 2016 
    else if (!isExpression(txt))
2017 
	txt = coerceVector(txt, STRSXP);
 2017 
	txt = coerceVector(txt, STRSXP);
2018 
    PROTECT(txt);
 2018 
    PROTECT(txt);
2019 
    if (length(txt) <= 0)
 2019 
    if (length(txt) <= 0)
2020 
	errorcall(call, "zero length \"text\" specified");
 2020 
	errorcall(call, "zero length 'labels'");
2021 
    args = CDR(args);
 2021 
    args = CDR(args);
2022 
 
 2022 
 
2023 
    PROTECT(adj = CAR(args));
 2023 
    PROTECT(adj = CAR(args));
2024 
    if (isNull(adj) || (isNumeric(adj) && length(adj) == 0)) {
 2024 
    if (isNull(adj) || (isNumeric(adj) && length(adj) == 0)) {
2025 
	adjx = Rf_gpptr(dd)->adj;
 2025 
	adjx = Rf_gpptr(dd)->adj;