replace <<- by assignInMyNamespace, CRAN feedback

AshesITR · Dec 8, 2022 · 6008405 · 6008405
1 parent c9ab09f
commit 6008405
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 7 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -7,17 +7,18 @@ Authors@R:
            family = "Rosenstock",
            role = c("aut", "cre", "cph"),
            email = "alexander.rosenstock@web.de")
-Description: Tools for defining distribution families and fitting them to
+Description: Define distribution families and fit them to
     interval-censored and interval-truncated data, where the truncation
-    bounds may depend on the individual observation.  The defined
+    bounds may depend on the individual observation. The defined
     distributions feature density, probability, sampling and fitting
     methods as well as efficient implementations of the log-density log
-    f(x) and log-probability log P(x0 <= X <= x1) for use in TensorFlow
+    f(x) and log-probability log P(x0 <= X <= x1) for use in 'TensorFlow'
     neural networks via the 'tensorflow' package. Allows training
     parametric neural networks on interval-censored and interval-truncated
-    data with flexible parametrisation. Applications include Claims
+    data with flexible parameterization. Applications include Claims
     Development in Non-Life Insurance, e.g. modelling reporting delay
-    distributions from incomplete data.
+    distributions from incomplete data, see Bücher, Rosenstock (2022)
+    <doi:10.1007/s13385-022-00314-4>.
 License: GPL
 BugReports: https://github.com/AshesITR/reservr/issues
 Depends: 

diff --git a/NAMESPACE b/NAMESPACE
@@ -123,6 +123,7 @@ importFrom(rlang,is_null)
 importFrom(rlang,is_scalar_double)
 importFrom(rlang,is_scalar_integerish)
 importFrom(rlang,is_string)
+importFrom(utils,assignInMyNamespace)
 importFrom(utils,hasName)
 importFrom(utils,head)
 importFrom(utils,modifyList)

diff --git a/R/zzz.R b/R/zzz.R
@@ -2,7 +2,7 @@
 #' @importFrom rlang is_string is_null is_integerish eval_tidy enquo
 #' is_installed is_scalar_double is_function is_bool is_scalar_integerish
 #' is_double check_installed %||%
-#' @importFrom utils head tail modifyList hasName
+#' @importFrom utils head tail modifyList hasName assignInMyNamespace
 #' @importFrom R6 R6Class
 #' @importFrom RcppParallel RcppParallelLibs
 #' @import stats
@@ -116,7 +116,7 @@ muffle_warning <- function(expr, text, .envir = parent.frame()) {
 # nocov start
 # covr can't get coverage information for .onLoad
 .onLoad <- function(libname, pkgname) {
-  K <<- Constants$new()
+  assignInMyNamespace("K", Constants$new())
 }
 # nocov end