fix of get rds fn call and import of caret

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,