Merge pull request #122 from mclements/main

Add plugin for using hesim inline

.gitignore

@@ -10,3 +10,4 @@ src/*.gcda
 doc
 Meta
 *_cache*
+*~

R/utils.R

@@ -377,3 +377,33 @@ get_n_samples.array <- function(x){
   stopifnot(is_3d_array(x))
   return(dim(x)[1])
 }
+
+#' Code to use the hesim package inline. Not directly called by the user.
+#' @param ... arguments
+#' @examples
+#'   library(Rcpp)
+#'   sourceCpp(code="
+#'   // [[Rcpp::depends(hesim)]]
+#'   // [[Rcpp::depends(RcppArmadillo)]]
+#'   #include <hesim.h>
+#'   // [[Rcpp::export]]
+#'   double test_inline_gengamma(double mu, double sigma, double Q) {
+#'     hesim::stats::gengamma gg(mu, sigma, Q);
+#'     return gg.random();
+#'   }")
+#'   set.seed(12345)
+#'   test_inline_gengamma(1.0, 1.0, 1.0)
+#' @keywords internal
+#' @rdname plugin
+inlineCxxPlugin <- function(...) {
+    ismacos <- Sys.info()[["sysname"]] == "Darwin"
+    openmpflag <- if (ismacos) "" else "$(SHLIB_OPENMP_CFLAGS)"
+    plugin <- Rcpp::Rcpp.plugin.maker(include.before = "#include <hesim.h>",
+                                      libs           = paste(openmpflag,
+                                                             "$(LAPACK_LIBS) $(BLAS_LIBS) $(FLIBS)"),
+                                      package        = "hesim")
+    settings <- plugin()
+    settings$env$PKG_CPPFLAGS <- paste("-I../inst/include", openmpflag)
+    ## if (!ismacos) settings$env$USE_CXX11 <- "yes"
+    settings
+}