fix error c. dyn.load()

Author: zhizuio

NAMESPACE

@@ -26,4 +26,4 @@ importFrom(survival,coxph)
 importFrom(survival,survreg)
 importFrom(utils,read.table)
 importFrom(utils,write.table)
-useDynLib(psbcSpeedUp)
+useDynLib(psbcSpeedUp, .registration = TRUE)

R/RcppExports.R

@@ -2,6 +2,6 @@
 # Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
 
 psbcSpeedUp_internal <- function(datTime, datEvent, x, p, q, hyperParFile, ini_beta, ini_tauSq, ini_h, groupInd, nIter, nChains, thin, rw) {
-    .Call('_psbcSpeedUp_psbcSpeedUp_internal', PACKAGE = 'psbcSpeedUp', datTime, datEvent, x, p, q, hyperParFile, ini_beta, ini_tauSq, ini_h, groupInd, nIter, nChains, thin, rw)
+    .Call(`_psbcSpeedUp_psbcSpeedUp_internal`, datTime, datEvent, x, p, q, hyperParFile, ini_beta, ini_tauSq, ini_h, groupInd, nIter, nChains, thin, rw)
 }
 

R/psbcSpeedUp-package.R

@@ -0,0 +1,20 @@
+#' @keywords internal
+#' @aliases psbcSpeedUp-package NULL
+#'
+#'
+"_PACKAGE"
+
+## usethis namespace: start
+#' @useDynLib psbcSpeedUp, .registration = TRUE
+## usethis namespace: end
+NULL
+
+## nocov start
+
+## .onLoad <- function(libname, pkgname) {
+##   # CRAN OMP THREAD LIMIT
+##   Sys.setenv("OMP_THREAD_LIMIT" = 1)
+## }
+
+## nocov end
+

R/psbcSpeedUp.R

@@ -5,8 +5,7 @@
 #' This a speed-up and extended version of the function \code{psbcGL()} in the R package \code{psbcGrouup}
 #'
 #' @name psbcSpeedUp
-#' @useDynLib psbcSpeedUp
-#' @aliases psbcSpeedUp-package
+#'
 #' @importFrom Rcpp evalCpp
 #' @importFrom stats rexp rgamma runif
 #' @importFrom utils write.table