R cmd notes

DESCRIPTION

@@ -62,6 +62,7 @@ Imports:
     glue,
     jsonlite,
     methods,
+    purrr,
     Rcpp,
     rlang,
     scales,
@@ -74,12 +75,11 @@ Suggests:
     knitr,
     mockery,
     parallel,
-    purrr,
     remotes,
     rmarkdown,
     snowfall,
     testthat (>= 3.0.0),
-    tidyverse,
+    tidyr,
     usethis,
     withr
 LinkingTo: 

NAMESPACE

@@ -59,10 +59,10 @@ exportMethods(m_agecomp)
 exportMethods(m_index)
 exportMethods(m_landings)
 exportMethods(m_lengthcomp)
+exportMethods(m_weight_at_age)
 import(methods)
 import(stats)
 importFrom(Rcpp,sourceCpp)
 importFrom(TMB,MakeADFun)
 importFrom(ggplot2,.data)
-importFrom(methods,callGeneric)
 useDynLib(FIMS, .registration = TRUE)

R/distribution_formulas.R

@@ -177,7 +177,7 @@ get_expected_name <- function(family, data_type) {
              some way.",
       "i" = "{.var data_type} is {.var {data_type}}.",
       "i" = "The family is {.var {family_string}}.",
-      "i" = "The link is {.var {link_string}}.",
+      "i" = "The link is {.var {link_string}}."
     ))
   }
   return(expected_name)

R/fimsframe.R

@@ -130,7 +130,10 @@ setMethod(
 #'
 #' @param x The object containing weight at age data.
 #' @export
+#' @rdname m_weight_at_age
 setGeneric("m_weight_at_age", function(x) standardGeneric("m_weight_at_age"))
+#' @export
+#' @rdname m_weight_at_age
 setMethod(
   "m_weight_at_age", "FIMSFrame",
   function(x) {
@@ -300,7 +303,7 @@ setMethod(
 setMethod(
   f = "plot",
   signature = "FIMSFrame",
-  definition = function(x) {
+  definition = function(x, y, ...) {
     ggplot2::ggplot(
       data = x@data,
       mapping = ggplot2::aes(

R/initialize_modules.R

@@ -1,3 +1,6 @@
+# To remove the WARNING
+# no visible binding for global variable
+utils::globalVariables(c("type", "name", "value", "unit", "uncertainty"))
 
 #' Initialize a generic module
 #'