The R Project SVN – R – Diff – /branches/R-exp-R5/src/main/sprintf.c

 #include <config.h>
 #endif
 #include <Defn.h>
 #include "RBufferUtils.h"
+#include <R_ext/RS.h> /* for Calloc/Free */
 #define MAXLINE MAXELTSIZE
 #define MAXNARGS 100
 /*               ^^^ not entirely arbitrary, but strongly linked to allowing %$1 to %$99 !*/
 				    COERCE_THIS_TO_A
+				}
 				break;
 			    case 's':
 				if(TYPEOF(_this) != STRSXP) {
+				    /* as.character method might call sprintf() */
+				    int nc = strlen(outputString);
+				    char *z = Calloc(nc+1, char);
+				    strcpy(z, outputString);
 				    PROTECT(tmp = lang2(install("as.character"), _this));
 				    COERCE_THIS_TO_A
+				    strcpy(outputString, z);
+				    Free(z);
+				}
 				break;
 			    default:
 				break;
+			    }

The R Project SVN R