[Rcpp-devel] how to get rid of the warning message: no graphics system to unregister

[Dirk Eddelbuettel]

Thanks for sending an example.  I am not so familiar with the survival
package.  Does it create plots by default?  If so, can you suppress them?

Can you reduce your program into smaller pieces not exhibiting the warning?

Dirk

On 13 February 2012 at 13:26, Haiying Pang wrote:
| Here is the test code I first used to call the R function from C++ program. At
| the end, the warning message came out.
| 
| double two_sample_logrank(RInside R, double* t, int* d, int sample_size)
| {
| double p_val = 0;
| int n = 2*sample_size;
| std::string txt =                   // load library, run regression,
| create summary
|         "suppressMessages(require(splines));"
| "suppressMessages(require(survival))";
| R.parseEvalQ(txt);                  // eval command, no return
| 
| double* g = new double[n];
| int i = 0;
| for(i=0; i<sample_size; i++) g[i] = 1;
| for(i=sample_size; i<n; i++) g[i] = 2;
| /* construct vectors used in R from double* and int* */
| std::vector<double> std_t(t, &t[n]);
| R["t"] = std_t;
| std::vector<int> std_d(d, &d[n]);
| R["d"] = std_d;
| std::vector<int> std_g(g, &g[n]);
| R["g"] = std_g;
| 
| txt = "df <- data.frame(t,d,g);"
| "cat('Showing df\n'); print(df); "
| "sdf <- survdiff(Surv(t,d)~as.factor(g), data=df);"
| "cat('Showing sdf\n'); print(sdf); "
| "p.val <- 1 - pchisq(sdf$chisq, length(sdf$n) - 1);"
| "trend <- (sdf$obs - sdf$exp)<0;"
| "if (trend[2]==FALSE) {p.val <- 0.9999};"
| "p.val"; //return the p.val of survdiff
| p_val = R.parseEval(txt);
| 
| delete [] g;
| return p_val;
| }
| 
| int main(int argc, char* argv[]){
| printf("get in\n");
| 
| RInside R(argc, argv);
| double t[] = {1.0, 2.0, 3, 0.3, 4, 0.9, 5, 8.9, 10, 0.5};
| int d[] = {1, 1, 0, 0, 0, 1, 0, 1, 0, 1};
| int sample_size = 5;
| double p_val = 0.0;
| p_val = two_sample_logrank(R, t, d, sample_size);
| printf("get out with %2.4f\n:", p_val);
| }
| 
| 
| 
| 
| On Sat, Feb 11, 2012 at 12:28 AM, Dirk Eddelbuettel <edd at debian.org> wrote:
| 
| 
|     On 10 February 2012 at 16:57, Haiying Pang wrote:
|     |  
|     | I am calling a R function through Rcpp and RInside in my c++ program in
|     Linux.
|     | There are a lot of warning messages saying "no graphics system to
|     unregister"
|     | that were outputed to my log file, which leaded to a hug log file that I
|     can
|     | hardly open after letting the code run for a few hours. Is there anyone
|     who
|     | knows the reason and how to avoid the printing of such warning messages?
|     I
|     | appreciate for your help!
| 
|     Without a minimal reproducible example, nobody is going to be able to help
|     you.
|    
|     Dirk
| 
|     --
|     "Outside of a dog, a book is a man's best friend. Inside of a dog, it is
|     too
|     dark to read." -- Groucho Marx
| 
| 
| 
| 
| --
| Haiying Pang

-- 
"Outside of a dog, a book is a man's best friend. Inside of a dog, it is too
dark to read." -- Groucho Marx