fix of author dependencies

Author: matthewphamilton

CITATION.cff

@@ -1,12 +1,12 @@
 cff-version: 1.2.0
-message: "Caroline Gao and Matthew Hamilton  (2022). TTU: Implement Transfer to Utility Mapping Algorithms. Version 0.0.0.9337. Zenodo. https://doi.org/10.5281/zenodo.5646593"
+message: "Caroline Gao and Matthew Hamilton  (2022). TTU: Implement Transfer to Utility Mapping Algorithms. Version 0.0.0.9338. Zenodo. https://doi.org/10.5281/zenodo.5646593"
 authors:
   - family-names: "Gao"
     given-names: "Caroline"
   - family-names: "Hamilton"
     given-names: "Matthew"
 title: "TTU: Implement Transfer to Utility Mapping Algorithms"
-version: 0.0.0.9337
+version: 0.0.0.9338
 doi: 10.5281/zenodo.5646593
 date-released: 2022-02-22
 url: "https://ready4-dev.github.io/TTU/"

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: TTU
 Title: Implement Transfer to Utility Mapping Algorithms
-Version: 0.0.0.9337
+Version: 0.0.0.9338
 Authors@R: c(
     person("Caroline", "Gao", , "caroline.gao@orygen.org.au", role = "aut",
            comment = c(ORCID = "0000-0002-0987-2759")),

R/mthd_author.R

@@ -50,7 +50,7 @@ methods::setMethod("author", "TTUReports", function (x, depnt_var_desc_1L_chr =
             "/", what_1L_chr)
         if (type_1L_chr == "Dependencies") {
             df <- data.frame(Package = c("youthvars", "scorz", 
-                "specific", "TTU", ) %>% purrr::map(~{
+                "specific", "TTU") %>% purrr::map(~{
                 utils::packageDescription(.x) %>% c("Depends", 
                   "Imports")[] %>% purrr::map(~{
                   if (is.null(.x)) {

data-raw/s4_fns/author.R

@@ -36,7 +36,7 @@ author_TTUReports <- function(x,
                          "/",
                          what_1L_chr)
     if(type_1L_chr == "Dependencies"){
-      df <- data.frame(Package = c("youthvars","scorz","specific","TTU",) %>%
+      df <- data.frame(Package = c("youthvars","scorz","specific","TTU") %>%
                          purrr::map(~ {
                            utils::packageDescription(.x) %>%
                              `[`(c("Depends", "Imports")) %>%