add prototypes_lup arg to renew

.github/workflows/pkgdown.yaml

@@ -11,6 +11,8 @@ on:
 
 name: pkgdown
 
+permissions: read-all
+
 jobs:
   pkgdown:
     runs-on: ubuntu-latest

DESCRIPTION

@@ -19,7 +19,7 @@ Description: Modules from the readyforwhatsnext youth mental health
     package has been made available as part of the process of testing and
     documenting the package.  If you have any questions, please contact
     the authors ([email protected]).
-License: GPL-3 + file LICENSE
+License: GPL-3
 URL: https://ready4-dev.github.io/TTU/, https://github.com/ready4-dev/TTU,
     https://ready4-dev.github.io/ready4/
 Encoding: UTF-8
@@ -30,8 +30,10 @@ Suggests:
     caret,
     knitr,
     knitrBootstrap,
+    pkgload,
     rmarkdown,
-    testthat
+    testthat,
+    youthvars (>= 0.0.0.9125)
 VignetteBuilder: knitr
 Imports: 
     dplyr,
@@ -50,7 +52,8 @@ Imports:
     utils
 Depends: 
     R (>= 2.10),
-    specific
+    scorz (>= 0.0.0.9066),
+    specific (>= 0.0.0.9108)
 LazyData: true
 Collate: 
     'C4_TTUSynopsis.R'
@@ -75,4 +78,6 @@ Collate:
 Remotes: 
     ready4-dev/ready4show,
     ready4-dev/ready4use,
-    ready4-dev/specific
+    ready4-dev/specific,
+    ready4-dev/youthvars,
+    ready4-dev/scorz

R/mthd_procure.R

@@ -1,5 +1,5 @@
 #' 
-#' Procure items from a dataset
+#' Procure data from a model module
 #' @name procure-TTUProject
 #' @description procure method applied to TTUProject
 #' @param x An object of class TTUProject

R/mthd_renew.R

@@ -8,6 +8,7 @@
 #' @param depnt_var_min_val_1L_dbl Dependent variable minimum value (a double vector of length one), Default: numeric(0)
 #' @param fl_nm_1L_chr File name (a character vector of length one), Default: character(0)
 #' @param paths_chr Paths (a character vector), Default: character(0)
+#' @param prototype_lup Prototype (a lookup table), Default: NULL
 #' @param type_1L_chr Type (a character vector of length one), Default: 'default'
 #' @param y_Ready4useRepos PARAM_DESCRIPTION, Default: ready4use::Ready4useRepos()
 #' @param what_1L_chr What (a character vector of length one), Default: 'utility'
@@ -19,9 +20,9 @@
 #' @importFrom ready4use Ready4useRepos
 #' @importFrom ready4 renew
 methods::setMethod("renew", "TTUProject", function (x, new_val_xx = NULL, consent_1L_chr = "", depnt_var_min_val_1L_dbl = numeric(0), 
-    fl_nm_1L_chr = character(0), paths_chr = character(0), type_1L_chr = "default", 
-    y_Ready4useRepos = ready4use::Ready4useRepos(), what_1L_chr = "utility", 
-    ...) 
+    fl_nm_1L_chr = character(0), paths_chr = character(0), prototype_lup = NULL, 
+    type_1L_chr = "default", y_Ready4useRepos = ready4use::Ready4useRepos(), 
+    what_1L_chr = "utility", ...) 
 {
     if (what_1L_chr == "parameters") {
         if (type_1L_chr == "default") {
@@ -69,7 +70,7 @@ methods::setMethod("renew", "TTUProject", function (x, new_val_xx = NULL, consen
             x <- renewSlot(x, "c_SpecificProject", SpecificModels(a_YouthvarsProfile = x@a_ScorzProfile@a_YouthvarsProfile, 
                 b_SpecificParameters = x@b_SpecificParameters, 
                 paths_chr = paths_chr))
-            x <- ratifySlot(x, "c_SpecificProject")
+            x <- ratifySlot(x, "c_SpecificProject", prototype_lup = prototype_lup)
             x <- renewSlot(x, "c_SpecificProject", authorSlot(x, 
                 "c_SpecificProject", consent_1L_chr = consent_1L_chr, 
                 what_1L_chr = "workspace"))

data-raw/s4_fns/renew.R

@@ -4,6 +4,7 @@ renew_TTUProject <- function(x,
                              depnt_var_min_val_1L_dbl = numeric(0),
                              fl_nm_1L_chr = character(0),
                              paths_chr = character(0),
+                             prototype_lup = NULL,
                              type_1L_chr = "default",
                              y_Ready4useRepos = ready4use::Ready4useRepos(),
                              what_1L_chr = "utility",
@@ -44,7 +45,7 @@ renew_TTUProject <- function(x,
     if(type_1L_chr == "default"){
       x <- renewSlot(x, "c_SpecificProject", SpecificModels(a_YouthvarsProfile = x@a_ScorzProfile@a_YouthvarsProfile,
                                                             b_SpecificParameters = x@b_SpecificParameters, paths_chr = paths_chr))
-      x <- ratifySlot(x, "c_SpecificProject")
+      x <- ratifySlot(x, "c_SpecificProject", prototype_lup = prototype_lup)
       x <- renewSlot(x, "c_SpecificProject", authorSlot(x, "c_SpecificProject", consent_1L_chr = consent_1L_chr, what_1L_chr = "workspace"))
     }
     if(type_1L_chr == "dummys"){