minor cleaning

Author: paul-buerkner

R/zzz.R

@@ -18,8 +18,8 @@ brmsfit_example$fit@stanmodel <- new("stanmodel")
 
 new_stan_functions <- function() {
   # copy all new stan functions into a single .stan file and compile it 
-  chunk_filenames <- list.files(system.file("chunks", package = "brms"),
-                                pattern = "^fun_")
+  isystem <- system.file("chunks", package = "brms")
+  chunk_filenames <- list.files(isystem, pattern = "^fun_")
   families <- list(cumulative("probit"), sratio("logit"), 
                    cratio("cloglog"), acat("cauchit"))
   partial <- c(rep(FALSE, 2), rep(TRUE, 2))
@@ -30,7 +30,6 @@ new_stan_functions <- function() {
              collapse("  #include '", chunk_filenames, "' \n"),
              collapse(ordinal_funs), "} \nmodel {} \n"), 
       file = temp_file)
-  isystem <- system.file("chunks", package = "brms")
   model <- rstan::stanc_builder(file = temp_file, isystem = isystem,
                                 obfuscate_model_name = TRUE)
   rstan::stan_model(stanc_ret = model)