#2835

r-lib · Jan 16, 2025 · e5c146e · e5c146e
1 parent 6615322
commit e5c146e
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 0 deletions.
diff --git a/R/build-home-authors.R b/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)
 

diff --git a/inst/BS3/templates/content-citation-authors.html b/inst/BS3/templates/content-citation-authors.html
@@ -23,6 +23,7 @@ <h1 id="citation">{{#translate}}{{citation}}{{/translate}}</h1>
     </div>
     </div>
 
+    {{#citation_header}}
 
     {{#citations}}
     {{{html}}}
-Original file line number
+Diff line change
@@ Expand Up @@
         </div>
         </div>
+        {{#citation_header}}
         {{#citations}}
         {{{html}}}
@@ Expand Down @@