force use dgCMatrix in mincut_c test

hclimente · Sep 26, 2022 · cb778c6 · cb778c6
1 parent 6f83da6
commit cb778c6
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git a/src/RcppExports.cpp b/src/RcppExports.cpp
@@ -9,6 +9,11 @@
 
 using namespace Rcpp;
 
+#ifdef RCPP_USE_GLOBAL_ROSTREAM
+Rcpp::Rostream<true>&  Rcpp::Rcout = Rcpp::Rcpp_cout_get();
+Rcpp::Rostream<false>& Rcpp::Rcerr = Rcpp::Rcpp_cerr_get();
+#endif
+
 // maxflow
 LogicalVector maxflow(Eigen::SparseMatrix<double,Eigen::ColMajor> const& A, Eigen::VectorXd const& As, Eigen::VectorXd const& At);
 static SEXP _martini_maxflow_try(SEXP ASEXP, SEXP AsSEXP, SEXP AtSEXP) {

diff --git a/tests/testthat/test_mincut_c.R b/tests/testthat/test_mincut_c.R
@@ -24,7 +24,7 @@ test_that("we recover causal SNPs", {
   W <- cbind(rbind(0, W[-1,-1]),0) + rbind(cbind(0,W[-1,-1]),0)
   W[1:pCausal, 1:pCausal] <- 1
   diag(W) <- 0
-  W <- as(W, "sparseMatrix")
+  W <- as(W, Class = "dgCMatrix")
 
   selected <- mincut_c(c, 1, 2, W)