Workaround for mangling in disbayes

Author: andrjohns

R/rstan_config.R

@@ -368,7 +368,7 @@ rstan_config <- function(pkgdir = ".") {
                     stanmodels[(model_line+2):load_line],
                     load_module,
                     stanmodels[(load_line+2):nlines])
-    if (is_excepted && !is.null(cpp_pre_process[[pkg_name]])) {
+    if (!is.null(cpp_pre_process[[pkg_name]])) {
       process_fun <- c("process_fun <- ", deparse(cpp_pre_process[[pkg_name]]))
 
       process_text <- c(

R/stanc_exceptions.R

@@ -68,5 +68,10 @@ cpp_pre_process <- list(
   cbq = function(cpp_code) {
     cpp_code <- gsub("offset_par", "offset", cpp_code, fixed = TRUE)
     cpp_code
+  },
+  # rstan 2.32 does not account for new stanc mangling
+  disbayes = function(cpp_code) {
+    cpp_code <- gsub("_stan_mips", "mips", cpp_code, fixed = TRUE)
+    cpp_code
   }
 )