another retry

R/db_abbreviations_lup.R

@@ -0,0 +1,13 @@
+#' Common abbreviations lookup table
+#' 
+#' A lookup table for abbreviations commonly used in object names in the youthupackage.
+#' 
+#' A tibble
+#' 
+#' \describe{
+#' \item{short_name_chr}{Short name (a character vector)}
+#' \item{long_name_chr}{Long name (a character vector)}
+#' \item{plural_lgl}{Plural (a logical vector)}
+#' }
+#' @source \url{https://doi.org/10.7910/DVN/2Y9VF9}
+"abbreviations_lup"

R/db_fn_type_lup_tb.R

@@ -0,0 +1,16 @@
+#' Function type lookup table
+#' 
+#' A lookup table to find descriptions for different types of functions used within the youthu package suite.
+#' 
+#' A tibble
+#' 
+#' \describe{
+#' \item{fn_type_nm_chr}{Function type name (a character vector)}
+#' \item{fn_type_desc_chr}{Function type description (a character vector)}
+#' \item{first_arg_desc_chr}{First argument description (a character vector)}
+#' \item{second_arg_desc_chr}{Second argument description (a character vector)}
+#' \item{is_generic_lgl}{Is generic (a logical vector)}
+#' \item{is_method_lgl}{Is method (a logical vector)}
+#' }
+#' @source \url{https://doi.org/10.7910/DVN/2Y9VF9}
+"fn_type_lup_tb"

R/db_fns_dmt_tb.R

@@ -0,0 +1,20 @@
+#' youthu function documentation table
+#' 
+#' Meta-data on each youthu function used to create package documentation
+#' 
+#' A tibble
+#' 
+#' \describe{
+#' \item{fns_chr}{Functions (a character vector)}
+#' \item{title_chr}{Title (a character vector)}
+#' \item{desc_chr}{Description (a character vector)}
+#' \item{details_chr}{Details (a character vector)}
+#' \item{inc_for_main_user_lgl}{Include for main user (a logical vector)}
+#' \item{output_chr}{Output (a character vector)}
+#' \item{example_lgl}{Example (a logical vector)}
+#' \item{args_ls}{Arguments (a list)}
+#' \item{file_nm_chr}{File name (a character vector)}
+#' \item{file_pfx_chr}{File prefix (a character vector)}
+#' }
+#' @source \url{https://ready4-dev.github.io/youthu/}
+"fns_dmt_tb"

R/fn_make.R

@@ -118,7 +118,7 @@ make_cst_efns_smry <- function (ds_tb, idxs_int, change_types_chr = "dbl", benef
 #' @keywords internal
 make_fake_ds_one <- function () 
 {
- data("replication_popl_tb", package = "youthvars")
+ data("replication_popl_tb", package = "youthvars", envir = environment())
  fake_data_tb <- replication_popl_tb %>% youthvars::transform_raw_ds_for_analysis() %>% 
  dplyr::select(fkClientID, round, PHQ9, SOFAS) %>% dplyr::arrange(fkClientID) %>% 
  na.omit() %>% dplyr::rename(UID = fkClientID, Timepoint = round, 
@@ -141,7 +141,7 @@ make_fake_ds_one <- function ()
 #' @keywords internal
 make_fake_ds_two <- function () 
 {
- data("replication_popl_tb", package = "youthvars")
+ data("replication_popl_tb", package = "youthvars", envir = environment())
  seed_ds_tb <- replication_popl_tb %>% youthvars::transform_raw_ds_for_analysis() %>% 
  dplyr::filter(fkClientID %in% (replication_popl_tb %>% 
  dplyr::filter(round == "Baseline" & PHQ9 < 20) %>% 

_pkgdown.yml

@@ -14,7 +14,6 @@ reference:
  - abbreviations_lup
  - fn_type_lup_tb
  - fns_dmt_tb
- - mdls_lup
 - title: "Functions"
 - contents:
  - add_qalys_to_ds

data-raw/fns/make.R

@@ -74,7 +74,7 @@ make_costs_vec_from_gamma_dstr <- function(n_int,
  return(costs_dbl)
 }
 make_fake_ds_one <- function(){
- data("replication_popl_tb", package = "youthvars")
+ data("replication_popl_tb", package = "youthvars", envir = environment())
  fake_data_tb <- replication_popl_tb %>%
  youthvars::transform_raw_ds_for_analysis() %>%
  dplyr::select(fkClientID,round,PHQ9, SOFAS) %>% #
@@ -89,7 +89,7 @@ make_fake_ds_one <- function(){
  return(fake_data_tb)
 }
 make_fake_ds_two <- function(){
- data("replication_popl_tb", package = "youthvars")
+ data("replication_popl_tb", package = "youthvars", envir = environment())
  seed_ds_tb <- replication_popl_tb %>%
  youthvars::transform_raw_ds_for_analysis() %>%
  dplyr::filter(fkClientID %in% (replication_popl_tb %>%