#2835

Author: Rafnuss

R/build-home-authors.R

@@ -10,6 +10,7 @@ build_citation_authors <- function(pkg = ".") {
   authors <- data_authors(pkg)
   data <- list(
     pagetitle = tr_("Authors and Citation"),
+    citation_header = data_citations_header(pkg),
     citations = data_citations(pkg),
     authors = unname(authors$all),
     inst = authors$inst,
@@ -245,6 +246,17 @@ data_home_sidebar_citation <- function(pkg = ".") {
   )
 }
 
+data_citations_header <- function(pkg = ".") {
+  pkg <- as_pkgdown(pkg)
+
+  print("heoo")
+  if (has_citation(pkg$src_path)) {
+    provided_citation <- read_citation(pkg$src_path)
+    return(attr(provided_citation, "mheader"))
+  }
+  NULL
+}
+
 data_citations <- function(pkg = ".") {
   pkg <- as_pkgdown(pkg)
 

inst/BS3/templates/content-citation-authors.html

@@ -23,6 +23,7 @@ <h1 id="citation">{{#translate}}{{citation}}{{/translate}}</h1>
     </div>
     </div>
 
+    {{#citation_header}}
 
     {{#citations}}
     {{{html}}}