redo for fns_dmt_tb

Author: matthewphamilton

CITATION.cff

@@ -1,12 +1,12 @@
 cff-version: 1.2.0
 message: "Matthew P Hamilton  (2021). ready4: Implement Open Source Computational Models of Youth Mental Health
-Systems. Version 0.0.0.9101. Zenodo. https://doi.org/10.5281/zenodo.5606250"
+Systems. Version 0.0.0.9102. Zenodo. https://doi.org/10.5281/zenodo.5606250"
 authors:
   - family-names: "Hamilton"
     given-names: "Matthew P"
 title: "ready4: Implement Open Source Computational Models of Youth Mental Health
 Systems"
-version: 0.0.0.9101
+version: 0.0.0.9102
 doi: 10.5281/zenodo.5606250
 date-released: 2022-09-08
 url: "https://ready4-dev.github.io/ready4/"

DESCRIPTION

@@ -27,8 +27,6 @@ Collate:
     'C4_Ready4Module.R'
     'C4_Ready4Private.R'
     'C4_Ready4Public.R'
-    'add.R'
-    'bind.R'
     'fn_add.R'
     'fn_bind.R'
     'fn_get.R'
@@ -39,11 +37,9 @@ Collate:
     'fn_transform.R'
     'fn_update.R'
     'fn_write.R'
-    'get.R'
     'grp_generics.R'
     'imp_fns.R'
     'imp_mthds.R'
-    'make.R'
     'mthd_authorSlot.R'
     'mthd_characterizeSlot.R'
     'mthd_depictSlot.R'
@@ -60,13 +56,7 @@ Collate:
     'mthd_renewSlot.R'
     'mthd_shareSlot.R'
     'pkg_ready4.R'
-    'print.R'
     'ready4-package.R'
-    'remove.R'
-    'rowbind.R'
-    'transform.R'
-    'update.R'
-    'write.R'
 Imports: 
     assertthat,
     bib2df,

R/fn_write.R

@@ -286,9 +286,10 @@ write_fls_to_repo <- function (paths_chr, descriptions_chr, consent_1L_chr = "",
     if (!identical(piggyback_to_1L_chr, character(0))) {
         if (!consent_1L_chr %in% c("Y", "N")) {
             consent_1L_chr <- make_prompt(prompt_1L_chr = paste0("Do you confirm ('Y') that you want to write the file ", 
-                ifelse(length(paths_chr) > 1, "s", ""), " to release ", 
-                piggyback_tag_1L_chr, " in ", piggyback_to_1L_chr), 
-                options_chr = c("Y", "N"), force_from_opts_1L_chr = T)
+                ifelse(length(paths_chr) > 1, "s ", " "), basename(paths_chr), 
+                " to release ", piggyback_tag_1L_chr, " in ", 
+                piggyback_to_1L_chr), options_chr = c("Y", "N"), 
+                force_from_opts_1L_chr = T)
         }
         if (consent_1L_chr %in% c("Y")) {
             releases_df <- piggyback::pb_list(repo = piggyback_to_1L_chr)

data-raw/DATASET.R

@@ -47,26 +47,6 @@ x <- ready4fun::make_pkg_desc_ls(pkg_title_1L_chr = "Implement Open Source Compu
 ## After doing so, all other such prompts should be answered in the affirmative.
 x <- write_self_srvc_pkg(x)
 #
-#library(ready4)
-share.ready4fun_manifest <- function(x, # Move to ready4fun
-                                     gh_prerelease_1L_lgl = T,
-                                     gh_repo_desc_1L_chr = "Supplementary Files",
-                                     gh_tag_1L_chr = "Documentation_0.0"){
-  fns_dmt_tb <- x$subsequent_ls$fns_dmt_tb
-  gh_repo_1L_chr <- x$subsequent_ls$piggyback_to_1L_chr
-
-  fns_dmt_tb <- fns_dmt_tb %>% dplyr::mutate(file_nm_chr = basename(file_nm_chr))
-  ready4::write_env_objs_to_dv(env_objects_ls = list(fns_dmt_tb = fns_dmt_tb),
-                               descriptions_chr = NULL,
-                               ds_url_1L_chr = character(0),
-                               piggyback_desc_1L_chr = gh_repo_desc_1L_chr,
-                               piggyback_tag_1L_chr = gh_tag_1L_chr,
-                               piggyback_to_1L_chr = gh_repo_1L_chr,
-                               prerelease_1L_lgl = gh_prerelease_1L_lgl)
-}
-share.ready4fun_manifest(x)
-
-
 # ADD DOI OVERRIDE FOR RELEASES
 #
 # write_extensions() # Required only if extensions have changed since last build