Publications

Code 
# Format a publication's author list
format_authors <- function(authors) {
  # Split authors' names (First MI Last or First Last)
  authors_split <- stringr::str_split(authors, " ")
  # Format as Last, FI. or Last, FI.MI.
  authors_formatted <- purrr::map_chr(
    authors_split,
    function(parts) {
      if (length(parts) == 3) {
        sprintf("%s %s.%s.", 
                parts[1], 
                substr(parts[2], 1, 1), 
                substr(parts[3], 1, 1))
      } else {
        sprintf("%s %s.", 
                parts[1], 
                substr(parts[2], 1, 1))
      }
    }
  )
  # Shorten long author lists
  if (length(authors_formatted) > 7) {
    authors_short <- c(authors_formatted[1:5], 
                       "...", 
                       authors_formatted[length(authors_formatted)])
  } else {
    authors_short <- authors_formatted
  }
  # Make my name bold
  authors_short[authors_short == "Payne, A.R."] <- "<strong>Payne, A.R.</strong>"
  # Concatenate
  paste(authors_short, collapse = ", ")
}

# Read bib file
pubs <- suppressWarnings(bib2df::bib2df("works.bib")) |>
  # Retain relevant fields and format author list
  dplyr::transmute(
    authors = purrr::map_chr(AUTHOR, format_authors),
    title = TITLE,
    journal = JOURNAL,
    year = YEAR
    ) |>
  # Format in HTML. Markdown doesn't support reverse ordered lists??
  dplyr::mutate(
    pub_html = glue::glue("<li>{authors}. ({year}). {title}. <em>{journal}</em>.")
  ) |>
  dplyr::pull(pub_html)
# Reverse ordered list
c(
  "<ol reversed>",
  pubs,
  "</ol>"
) |>
  cat()
  1. Czapanskiy, M.F., Arcila H., Munro, C., Garfield, I., Bastidas, A., …, Beltran, R.S.. (2024). Long-term studies should provide structure for inclusive education and professional development. Ecology Letters.
  2. Ellis, A.A., Beck, J.N., Howard, E.A., Rabearisoa, A.L., Alissa, L.M., …, Croll, D.A.. (2024). Coalition-building for labor actions in life sciences departments: lessons from the largest academic strike in history. BioScience.
  3. Beltran, R.S., Kilpatrick, A.M., Picardi, S., Abrahms, B., Barrile, G.M., …, Robinson, P.W.. (2024). Maximizing biological insights from instruments attached to animals. Trends in Ecology & Evolution.
  4. Payne, A.R., Czapanskiy, M.F., Kilpatrick, A.M., Robinson, P.W., Munro, C., …, Beltran, R.S.. (2024). Reproductive success and offspring survival decline for female elephant seals past prime age. Journal of Animal Ecology.
  5. Markowitz, T.M., Keener, W., Webber, M.A., Payne, A.R., Lane, R.S., Fahlbusch, J.A., Calambokidis, J.. (2024). New urban habitat for endangered humpback whales: San Francisco Bay. Aquatic Conservation: Marine and Freshwater Ecosystems.
  6. Cronin, M.R., Zavaleta, E.S., Beltran, R.S., Esparza, M., Payne, A.R., …, Jones, M.S.. (2024). Testing the effectiveness of interactive training on sexual harassment and assault in field science. Scientific reports.
  7. Abdel-Raheem, S.T., Payne, A.R., Rivera, M., Sturdivant, K., W., …, Beltran, R.. (2023). Oceanography’s Diversity Deficit: Identifying and Addressing Challenges for Marginalized Groups. Oceanography.
  8. Webber, M.A., Keener, W., Spears, A.C., Cotter, M.P., Lane, R.S., Payne, A.R., Markowitz, T.M.. (2023). New Record of California Coastal Bottlenose Dolphins (Tursiops truncatus) in Offshore Waters. Aquatic Mammals.