Merge pull request #132 from PLN-team/fix-plnnetwork

fix issue #130 with deprecated use os purrr:map_chr
PLN-team · Sep 10, 2024 · e714dcf · e714dcf
2 parents 185c538 + 6cd21c6
commit e714dcf
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -25,7 +25,7 @@ BugReports: https://github.com/pln-team/PLNmodels/issues
 License: GPL (>= 3)
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.3.1
+RoxygenNote: 7.3.2
 Depends: R (>= 3.6)
 LazyData: true
 biocViews:

diff --git a/NAMESPACE b/NAMESPACE
@@ -103,7 +103,6 @@ importFrom(pscl,zeroinfl)
 importFrom(purrr,map)
 importFrom(purrr,map2)
 importFrom(purrr,map2_dbl)
-importFrom(purrr,map_chr)
 importFrom(purrr,map_dbl)
 importFrom(purrr,map_int)
 importFrom(purrr,reduce)

diff --git a/R/PLNfamily-class.R b/R/PLNfamily-class.R
@@ -15,7 +15,7 @@
 #' @rdname PLNfamily
 #' @include PLNfamily-class.R
 #' @importFrom R6 R6Class
-#' @importFrom purrr map reduce map_chr
+#' @importFrom purrr map reduce
 PLNfamily <-
   R6Class(
     classname = "PLNfamily",
@@ -182,7 +182,7 @@ PLNfamily <-
       #' @field convergence sends back a data frame with some convergence diagnostics associated with the optimization process (method, optimal value, etc)
       convergence = function() {
         res <- purrr::map(self$models, function(model) {
-          c(nb_param = model$nb_param, purrr::map_chr(model$optim_par, tail, 1))
+          c(nb_param = model$nb_param, purrr::map(model$optim_par, tail, 1))
         }) %>% purrr::reduce(rbind)
         data.frame(param = private$params, res, stringsAsFactors = FALSE)
       }