page

Author: Flavjack

docs/authors.html

@@ -26,8 +26,8 @@ Lozano-Isla F, Diaz-Saucedo Y, Kistner M, QuipoLab, Inkaverse (2026).
 *inti: Tools and Statistical Procedures in Plant Science*. R package
 version 0.7.1, <https://CRAN.R-project.org/package=inti>.
 
-    @Manual{,
-      title = {{inti}: Tools and Statistical Procedures in Plant Science},
+    @Manual{inti,
+      title = {inti: Tools and Statistical Procedures in Plant Science},
       author = {Flavio Lozano-Isla and Yoel Diaz-Saucedo and María Belén Kistner and {QuipoLab} and {Inkaverse}},
       year = {2026},
       note = {R package version 0.7.1},

docs/authors.md

@@ -8,7 +8,7 @@ articles:
   rticles: rticles.html
   tarpuy: tarpuy.html
   yupana: yupana.html
-last_built: 2026-06-22T20:40Z
+last_built: 2026-06-22T22:26Z
 urls:
   reference: https://inkaverse.com/reference
   article: https://inkaverse.com/articles

docs/pkgdown.yml

@@ -7,38 +7,53 @@ citHeader(
   )
 )
 
-year <- format(Sys.Date(), "%Y")
+authors <- eval(parse(text = meta$`Authors@R`))
+
+year <- if (!is.null(meta$Date)) {
+  sub("-.*", "", meta$Date)
+} else {
+  format(Sys.Date(), "%Y")
+}
+
 note <- sprintf("R package version %s", meta$Version)
-url <- "https://CRAN.R-project.org/package=inti"
 
-authors <- eval(parse(text = meta$`Authors@R`))
+url <- "https://CRAN.R-project.org/package=inti"
 
 bibentry(
+  key = "inti",
   bibtype = "Manual",
-  title = "{inti}: Tools and Statistical Procedures in Plant Science",
+  title = "inti: Tools and Statistical Procedures in Plant Science",
   author = authors,
   year = year,
   note = note,
   url = url
 )
 
-authors_text <- paste(
-  vapply(
-    authors,
-    function(x) {
-      paste0(x$family, ", ", substr(x$given, 1, 1), ".")
-    },
-    character(1)
-  ),
-  collapse = ", "
+authors_vec <- vapply(
+  authors,
+  function(x) {
+    paste0(x$family, ", ", substr(x$given, 1, 1), ".")
+  },
+  character(1)
 )
 
+authors_text <- if (length(authors_vec) == 1) {
+  authors_vec
+} else if (length(authors_vec) == 2) {
+  paste(authors_vec, collapse = " & ")
+} else {
+  paste0(
+    paste(authors_vec[-length(authors_vec)], collapse = ", "),
+    ", & ",
+    authors_vec[length(authors_vec)]
+  )
+}
+
 textVersion <- paste0(
   authors_text,
   " (", year, "). ",
   "inti: Tools and Statistical Procedures in Plant Science. ",
   note,
-  ". ",
+  ". Retrieved from ",
   url
-)
-  
+)