Hi
Could not make this example work, maybe because its missing
*rPercentComplete pointing at percentComplete. The above mentioned link has
been moved? to:
https://gist.github.com/KRD1/2503984
however, this worked for me:
*R side:*
/pBar <- txtProgressBar( min = 0, max = 100, style = 3)
blub<-.Call("FUBAR",
as.matrix(blab),
as.matrix(blib),
...,
pBar,
PACKAGE="blob"
)
close(pBar)/
*C side:*
/
...
extern "C"{
SEXP FUBAR(
SEXP blab,
SEXP blib,
...,
SEXP pBar
){
...
SEXP utilsPackage;
PROTECT(utilsPackage = eval(lang2(install("getNamespace"),
ScalarString(mkChar("utils"))),R_GlobalEnv));
SEXP percentComplete;
PROTECT(percentComplete = NEW_NUMERIC(1));
double *rPercentComplete;
rPercentComplete = NUMERIC_POINTER(percentComplete);
for(some loop on n){
*rPercentComplete = n;
eval(lang4(install("setTxtProgressBar"), pBar, percentComplete,
R_NilValue), utilsPackage);
}
UNPROTECT(...)
return ...
}
}/
--
View this message in context:
http://r.789695.n4.nabble.com/Rprintf-not-updating-tp1751703p4690887.html
Sent from the R help mailing list archive at Nabble.com.
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
