Блог

Я запускаю devtools::test , и это работает:

 $ RScript -e "devtools::test()"
...
OK:       24
  

Но devtools::check сбой при тестировании:

 $ RScript -e "devtools::check()"
...
> test_check("package")
Error in cpp_object_initializer(.self, .refClassDef, ...) : 
  could not find function "cpp_object_initializer"
Stan model 'bayes_logit' does not contain samples.
── 1. Error: Mixture of Dirichlet Processes stick-breaking works and returns (@t
'data' must be of a vector type, was 'NULL'
1: mdp_logit_mvn_stickbreaking(n_samp = n_samp, mix_mean = NULL, mix_cov = NULL, posterior_sample = stan_sample, 
       prior_sample_size = 1, dataset = german, tol = 1e-08) at testthat/test_stick_breaking.R:35
2: MASS::mvrnorm(n = n_samp, mu = mix_mean, Sigma = mix_cov)
3: eigen(Sigma, symmetric = TRUE)
4: unname(as.matrix(x))
5: as.matrix(x)
6: as.matrix.default(x)
7: array(x, c(length(x), 1L), if (!is.null(names(x))) list(names(x), NULL) else NULL)
  

Как я могу это исправить?

Это происходит из-за разницы между загрузкой и присоединением. Я взял решение из этой проблемы с GitHub.

Добавьте это в NAMESPACE , чтобы указать R, где искать cpp_object_initialiser :

 Depends:
    Rcpp
  

Это работает, но выдает предупреждение. Чтобы избежать этого замечания, добавьте экспорт Roxygen вокруг функции, которая использует вызов Rstan:

 #' @importFrom Rcpp cpp_object_initializer
function_name <- function(...) {...}