rstan: pass error output to stanc translator

stan-dev · Oct 25, 2012 · 816f100 · 816f100
1 parent 60ab347
commit 816f100
Show file tree

Hide file tree

Showing 2 changed files with 23 additions and 1 deletion.
diff --git a/rstan/example/testintdiv.R b/rstan/example/testintdiv.R
@@ -0,0 +1,21 @@
+# test warning for integer division
+
+library(rstan)
+
+
+scode <- '
+transformed data {
+  int x;
+  x <- 5 / 2;
+}
+parameters {
+  real y;
+} 
+model {
+  y ~ normal(x, 1);
+}
+'
+
+
+a <- stan(model_code = scode, iter = 10) 
+
diff --git a/rstan/rstan/src/stanc.cpp b/rstan/rstan/src/stanc.cpp
@@ -10,6 +10,7 @@
 #include <string>
 
 #include <Rcpp.h>
+#include <rstan/io/r_ostream.hpp> 
 
 RcppExport SEXP stanc(SEXP model_stancode, SEXP model_name);
 RcppExport SEXP stan_version(); 
@@ -45,7 +46,7 @@ SEXP stanc(SEXP model_stancode, SEXP model_name) {
   std::istringstream in(mcode_); 
   try {
     bool valid_model
-      = stan::gm::compile(in,out,mname_,!INCLUDE_MAIN);
+      = stan::gm::compile(&rstan::io::rcerr,in,out,mname_,!INCLUDE_MAIN);
     if (!valid_model) {
       return Rcpp::List::create(Rcpp::Named("status") = PARSE_FAIL_RC);