more typo fixes

Author: matthewphamilton

CITATION.cff

@@ -1,10 +1,9 @@
 cff-version: 1.2.0
-message: ". Zenodo.uthor1Given Author1Family <name@example.com> [aut and cre] (<https://orcid.org/0000-0000-0000-0000>)  (2024). : . . https://doi.org/10.5281/zenodo.5606250"
+message: "Author1Given Author1Family (2024). template: Do Something Related to Mental Health Economic Modelling. Version 0.0.0.9002. "
 authors:
-  - family-names: "(<https://orcid.org/0000-0000-0000-0000>)"
-    given-names: "Author1Given Author1Family <name@example.com> [aut, cre]"
-title: ": "
-version: 
-doi: 10.5281/zenodo.5606250
+  - family-names: "Author1Family"
+    given-names: "Author1Given"
+title: "template: Do Something Related to Mental Health Economic Modelling"
+version: 0.0.0.9002
 date-released: 2024-12-02
 url: "https://ready4-dev.github.io/template/"

DESCRIPTION

@@ -13,7 +13,7 @@ Description: A description of what this model module library does. Mention
     the process of testing and documenting the library.  You can also
     direct users with any questions about the library to the maintainer's
     email address (supply email here).
-License: GPL-3 + file LICENSE
+License: GPL-3
 URL: https://ready4-dev.github.io/template/,
     https://github.com/ready4-dev/template,
     https://ready4-dev.github.io/ready4/
@@ -23,6 +23,7 @@ RoxygenNote: 7.3.2
 Suggests: 
     knitr,
     knitrBootstrap,
+    pkgload,
     rmarkdown,
     testthat
 VignetteBuilder: knitr

data-raw/DATASET.R

@@ -51,11 +51,14 @@ write_to_tidy_pkg(z$x_ready4fun_manifest,
 #   stringr::str_replace_all("  - text: Model", "  - text: Framework & Model") %>%
 #   writeLines(con = "_pkgdown.yml")
 write_citation_fl(z$x_ready4fun_manifest)
-ready4::write_citation_cff(z$x_ready4fun_manifest,
-                           citation_chr = readLines("inst/CITATION"))
-# 
 desc_chr <- readLines("DESCRIPTION")
+# ready4::write_citation_cff(z$x_ready4fun_manifest$initial_ls$pkg_desc_ls %>% append(list(Version = desc_chr[desc_chr %>% startsWith("Version")] %>% stringr::str_remove("Version: "))),
+#                            citation_chr = readLines("inst/CITATION"),
+#                            publisher_1L_chr = "")
 index_1L_int <- which(desc_chr=="    person(\"CopyrightHolder\", role = \"cph\")")
-c(desc_chr[1:(index_1L_int-2)], stringr::str_sub(desc_chr[(index_1L_int-1)], end = -2), desc_chr[(index_1L_int+1):length(desc_chr)]) %>%
-  writeLines("DESCRIPTION")
-devtools::document()
+if(!identical(index_1L_int, integer(0))){
+  c(desc_chr[1:(index_1L_int-2)], stringr::str_sub(desc_chr[(index_1L_int-1)], end = -2), desc_chr[(index_1L_int+1):length(desc_chr)]) %>%
+    writeLines("DESCRIPTION")
+  devtools::document()
+}
+