Update kyber_file to use certificate dir; use kyber_file()

Author: ateucher

R/create_certificate.R

@@ -53,12 +53,9 @@ create_certificate <- function(
 
   template <- switch(
     cohort_type,
-    standard = system.file("certificate/certificate.qmd", package = "kyber"),
-    nmfs = system.file("certificate/certificate-nmfs.qmd", package = "kyber"),
-    pathways = system.file(
-      "certificate/certificate-pathways.qmd",
-      package = "kyber"
-    )
+    standard = kyber_file("certificate.qmd"),
+    nmfs = kyber_file("certificate-nmfs.qmd"),
+    pathways = kyber_file("certificate-pathways.qmd")
   )
 
   participant_name <- paste(first_name, last_name)

R/kyber_file.R

@@ -5,19 +5,25 @@
 #'
 #' @param path The name of the file. If no argument is provided then
 #' all of the example files will be listed.
-#' 
+#'
 #' @return A vector of file paths
 #' @export
 #' @examples
 #' kyber_file("_opening.Rmd")
 #'
-kyber_file <- function(path = NULL){
-  if(is.null(path)) {
+kyber_file <- function(path = NULL) {
+  kyber_inst_dirs <- c(
+    "agendas",
+    "kyber-templates",
+    "ms-word-themes",
+    "certificate"
+  )
+  if (is.null(path)) {
     list.files(
-      system.file(c("agendas", "kyber-templates", "ms-word-themes"), 
-                  package = "kyber"), full.names = TRUE) 
+      system.file(kyber_inst_dirs, package = "kyber"),
+      full.names = TRUE
+    )
   } else {
-    system.file(c("agendas", "kyber-templates", "ms-word-themes"), 
-                path, package = "kyber", mustWork = TRUE)
+    system.file(kyber_inst_dirs, path, package = "kyber", mustWork = TRUE)
   }
-}
+}