fix of get rds fn call and import of caret

Author: matthewphamilton

R/fn_transform.R

@@ -224,7 +224,8 @@ transform_mdl_vars_with_clss <- function (ds_tb, predictors_lup = NULL, prototyp
     if (is.null(predictors_lup)) 
         data("predictors_lup", package = "youthvars", envir = environment())
     if (is.null(prototype_lup)) 
-        prototype_lup <- ready4fun::get_rds_from_dv("prototype_lup")
+        prototype_lup <- ready4fun::get_rds_from_dv("prototype_lup", 
+            server_1L_chr = "dataverse.harvard.edu")
     if (!is.null(depnt_var_nm_1L_chr)) {
         predictors_lup <- tibble::add_case(predictors_lup, short_name_chr = depnt_var_nm_1L_chr, 
             class_chr = "numeric", class_fn_chr = class_fn_1L_chr)

_pkgdown.yml

@@ -1,9 +1,9 @@
 home:
   links:
   - text: Manual - User (PDF)
-    href: https://dataverse.harvard.edu/api/access/datafile/5251564
+    href: https://dataverse.harvard.edu/api/access/datafile/5254608
   - text: Manual - Developer (PDF)
-    href: https://dataverse.harvard.edu/api/access/datafile/5251562
+    href: https://dataverse.harvard.edu/api/access/datafile/5254607
   - text: Project website
     href:  https://ready4-dev.github.io/ready4/
 development:

data-raw/DATASET.R

@@ -19,7 +19,7 @@ x_ready4fun_manifest <- ready4fun::make_pkg_desc_ls(pkg_title_1L_chr = "Transfer
                                                                  "https://ready4-dev.github.io/ready4/")) %>%
   ready4fun::make_manifest(addl_pkgs_ls = ready4fun::make_addl_pkgs_ls(depends_chr = c("eq5d","ggfortify"),
                                                                        suggests_chr = c("knitr","rmarkdown"),
-                                                                       imports_chr = c("betareg","knitrBootstrap")),
+                                                                       imports_chr = c("betareg","caret","knitrBootstrap")),
                            build_ignore_ls = ready4fun::make_build_ignore_ls(file_nms_chr = c("initial_setup.R")),
                            check_type_1L_chr = "ready4",
                            copyright_holders_chr = "Orygen",

data-raw/fns/transform.R

@@ -182,7 +182,8 @@ transform_mdl_vars_with_clss <- function(ds_tb,
   if(is.null(predictors_lup))
     data("predictors_lup", package = "youthvars", envir = environment())
   if(is.null(prototype_lup))
-    prototype_lup <- ready4fun::get_rds_from_dv("prototype_lup")
+    prototype_lup <- ready4fun::get_rds_from_dv("prototype_lup",
+                                                server_1L_chr = "dataverse.harvard.edu")
     #data("prototype_lup", package = "TTU", envir = environment())
   if(!is.null(depnt_var_nm_1L_chr)){
     predictors_lup <- tibble::add_case(predictors_lup,