prepended_checklist_note

R/custom_options.R

@@ -17,6 +17,22 @@ get_checklist_display_name_var <- function(capitalized = FALSE, plural = FALSE)
   return(checklist_display_name_var)
 }
 
+get_prepended_checklist_note <- function() {
+  prepended_checklist_note <- .le$prepended_checklist_note
+
+  # if not given, make the empty string
+  if (is.null(prepended_checklist_note)) {
+    prepended_checklist_note <- ""
+  }
+
+  # if given, append with a newline
+  else {
+    prepended_checklist_note <- paste0(prepended_checklist_note, "\n")
+  }
+
+  return(prepended_checklist_note)
+}
+
 # get_dne_var <- function(capitalized = FALSE) {
 #   dne_var <- .le$dne_var
 #

R/format.R

@@ -4,7 +4,7 @@ format_issue_body <- function(checklist_type, file_path) {
   file_items <- checklists[[checklist_type]]
   qc_checklist <- format_checklist_items(file_items)
   metadata <- format_metadata(checklist_type, file_path)
-  note <- format_note()
+  note <- get_prepended_checklist_note()
 
   issue_body_content <- format_body_content(metadata = metadata,
                                             checklist_type = checklist_type,
@@ -180,23 +180,6 @@ get_file_contents_url <- function(file_path, git_sha) {
   file.path(https_url, "blob", substr(git_sha, 1, 6), file_path)
 }
 
-format_note <- function() {
-  note <- {
-    if (file.exists(file.path(.le$info_repo_path, "note"))) {
-      custom_note <- readr::read_file(file.path(.le$info_repo_path, "note"))
-      if (stringr::str_sub(custom_note, start =-2) != "\n") {
-        custom_note <- paste0(custom_note,"\n")
-      }
-      custom_note
-    }
-    else {
-      ""
-    }
-  }
-
-  return(note)
-}
-
 format_body_content <- function(metadata, checklist_type, note, qc_checklist) {
   glue::glue("## Metadata\n\n
              {metadata}\n\n