void PrintDefaults(SEXP rho)
{
R_print.na_string = NA_STRING;
R_print.na_string_noquote = mkChar("<NA>");
R_print.na_width = strlen(CHAR(R_print.na_string));
R_print.na_width_noquote = strlen(CHAR(R_print.na_string_noquote));
R_print.quote = 1;
R_print.right = 0;
R_print.digits = GetOptionDigits(rho);
R_print.scipen = asInteger(GetOption(install("scipen"), rho));
if (R_print.scipen == NA_INTEGER) R_print.scipen = 0;
R_print.gap = 1;
R_print.width = GetOptionWidth(rho);
}
/* NB this is called by R.app even though it is in no public header, so
alter there if you alter this */
void PrintDefaults(void)
{
R_print.na_string = NA_STRING;
R_print.na_string_noquote = mkChar("<NA>");
R_print.na_width = (int) strlen(CHAR(R_print.na_string));
R_print.na_width_noquote = (int) strlen(CHAR(R_print.na_string_noquote));
R_print.quote = 1;
R_print.right = Rprt_adj_left;
R_print.digits = GetOptionDigits();
R_print.scipen = asInteger(GetOption1(install("scipen")));
if (R_print.scipen == NA_INTEGER) R_print.scipen = 0;
R_print.max = asInteger(GetOption1(install("max.print")));
if (R_print.max == NA_INTEGER || R_print.max < 0) R_print.max = 99999;
else if(R_print.max == INT_MAX) R_print.max--; // so we can add
R_print.gap = 1;
R_print.width = GetOptionWidth();
R_print.useSource = USESOURCE;
R_print.cutoff = GetOptionCutoff();
}
