typo fix

matthewphamilton · matthewphamilton · commit b2572b18b16a · 2022-02-12T19:08:03.000+11:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -119,10 +119,15 @@ Collate:
     'pkg_specific.R'
     'specific-package.R'
 Suggests: 
-    scorz,
-    rmarkdown
-Remotes: 
+    scorz (>= 0.0.0.9047),
+    rmarkdown,
+    betareg,
+    cmdstanr (>= 0.4.0.9000),
+    rstan
+Remotes:  
     ready4-dev/ready4,
     ready4-dev/ready4show,
     ready4-dev/ready4use,
-    ready4-dev/youthvars
+    ready4-dev/youthvars,
+    stan-dev/cmdstanr,
+    ready4-dev/scorz
diff --git a/R/mthd_author.R b/R/mthd_author.R
@@ -51,7 +51,7 @@ methods::setMethod("author", "SpecificModels", function (x, prefd_mdl_types_chr
             descv_plts_paths_ls <- youthvars::write_descv_plots(x@a_YouthvarsProfile@a_Ready4useDyad@ds_tb, 
                 ds_descvs_ls = ds_descvs_ls, descv_outp_dir_1L_chr = x@b_SpecificParameters@paths_ls$descv_outp_dir_1L_chr, 
                 lbl_nms_chr = x@b_SpecificParameters@itm_labels_chr, 
-                maui_domains_pfxs_1L_chr = hutils::longest_prefix(C@b_SpecificParameters@domain_labels_chr))
+                maui_domains_pfxs_1L_chr = hutils::longest_prefix(x@b_SpecificParameters@domain_labels_chr))
         }
         if (what_1L_chr %in% c("models", "all")) {
             x <- investigate(x)
diff --git a/data-raw/s4_fns/author.R b/data-raw/s4_fns/author.R
@@ -40,7 +40,7 @@ author_SpecificModels <- function(x,
                                                           ds_descvs_ls = ds_descvs_ls,
                                                           descv_outp_dir_1L_chr = x@b_SpecificParameters@paths_ls$descv_outp_dir_1L_chr,
                                                           lbl_nms_chr = x@b_SpecificParameters@itm_labels_chr, # Should be domain labels
-                                                          maui_domains_pfxs_1L_chr = hutils::longest_prefix(C@b_SpecificParameters@domain_labels_chr))
+                                                          maui_domains_pfxs_1L_chr = hutils::longest_prefix(x@b_SpecificParameters@domain_labels_chr))
 
     }
     if(what_1L_chr %in% c("models","all")){
diff --git a/data-raw/s4_fns/metamorphose.R b/data-raw/s4_fns/metamorphose.R
@@ -1,15 +1,6 @@
 metamorphose_SpecificConverter <- function(x,
                                            paths_chr = NA_character_){
   domain_labels_chr <- x@a_ScorzProfile@domain_wtd_var_nms_chr
-    # x@a_ScorzProfile@domain_wtd_var_nms_chr %>%
-    # purrr::map_chr(~ready4::get_from_lup_obj(x@a_ScorzProfile@instrument_dict_r3,
-    #                                          match_var_nm_1L_chr = "var_nm_chr",
-    #                                          match_value_xx = .x,
-    #                                          target_var_nm_1L_chr = "var_desc_chr") %>%
-    #                  stringi::stri_replace_first_fixed("EuroQol (EQ-5D) - ","") %>%
-    #                  stringi::stri_replace_all_fixed("Adult Score Dimension 1 - ","") %>%
-    #                  stringi::stri_replace_last_fixed(" item",
-    #                                                   ""))
   x_SpecificModels <- SpecificModels(a_YouthvarsProfile = procureSlot(x@a_ScorzProfile,"a_YouthvarsProfile"),
                                      b_SpecificParameters = SpecificParameters(depnt_var_nm_1L_chr = x@a_ScorzProfile@total_wtd_var_nm_1L_chr,
                                                                                domain_labels_chr = domain_labels_chr,

Original file line number	Diff line number	Diff line change
`@@ -51,7 +51,7 @@ methods::setMethod("author", "SpecificModels", function (x, prefd_mdl_types_chr`
`51`	`51`	`descv_plts_paths_ls <- youthvars::write_descv_plots(x@a_YouthvarsProfile@a_Ready4useDyad@ds_tb,`
`52`	`52`	`ds_descvs_ls = ds_descvs_ls, descv_outp_dir_1L_chr = x@b_SpecificParameters@paths_ls$descv_outp_dir_1L_chr,`
`53`	`53`	`lbl_nms_chr = x@b_SpecificParameters@itm_labels_chr,`
`54`		`- maui_domains_pfxs_1L_chr = hutils::longest_prefix(C@b_SpecificParameters@domain_labels_chr))`
	`54`	`+ maui_domains_pfxs_1L_chr = hutils::longest_prefix(x@b_SpecificParameters@domain_labels_chr))`
`55`	`55`	`}`
`56`	`56`	`if (what_1L_chr %in% c("models", "all")) {`
`57`	`57`	`x <- investigate(x)`
Original file line number	Diff line number	Diff line change
`@@ -40,7 +40,7 @@ author_SpecificModels <- function(x,`
`40`	`40`	`ds_descvs_ls = ds_descvs_ls,`
`41`	`41`	`descv_outp_dir_1L_chr = x@b_SpecificParameters@paths_ls$descv_outp_dir_1L_chr,`
`42`	`42`	`lbl_nms_chr = x@b_SpecificParameters@itm_labels_chr, # Should be domain labels`
`43`		`- maui_domains_pfxs_1L_chr = hutils::longest_prefix(C@b_SpecificParameters@domain_labels_chr))`
	`43`	`+ maui_domains_pfxs_1L_chr = hutils::longest_prefix(x@b_SpecificParameters@domain_labels_chr))`
`44`	`44`
`45`	`45`	`}`
`46`	`46`	`if(what_1L_chr %in% c("models","all")){`