Publications

This publications list is generated programmatically from .bib files. Expand the folded code to see how!

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.
  # Two-word last names indicated by underscore, must be post-processed
  sub2 <- function(x, pattern, replacement) sub(pattern, replacement, x)
  authors_formatted <- purrr::map_chr(
    authors_split,
    function(parts) {
      if (length(parts) == 3) {
        sprintf("%s, %s.%s.", 
                parts[3], 
                substr(parts[1], 1, 1), 
                substr(parts[2], 1, 1))
      } else {
        sprintf("%s, %s.", 
                parts[2], 
                substr(parts[1], 1, 1))
      }
    }
  ) |>
    sub2("_", " ")
  # 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 == "Czapanskiy, M.F."] <- "<strong>Czapanskiy, M.F.</strong>"
  # Concatenate
  paste(authors_short, collapse = ", ")
}

# Find path to PDF file
find_pdf <- function(authors, year, title) {
  if (year == "In press") {
    return(NA)
  }
  lead_author <- stringr::str_extract(authors[1], "[^ ]+$")
  title_short <- title |>
    stringr::str_replace_all("[^a-zA-Z \\-]", "") |>
    substr(1, 30)
  pdf_pattern <- glue::glue("{lead_author}.*- {year} - {title_short}")
  dir(here::here("assets", "papers"), 
      pattern = pdf_pattern,
      ignore.case = TRUE) |>
    (\(pdf) file.path("assets", "papers", pdf))()
}
create_pdf_link <- function(pdf) {
  ifelse(is.na(pdf), 
         "", 
         glue::glue(" <a href=\"{pdf}\" target=\"_blank\">PDF</a>"))
}

# Read bib file
pubs <- bib2df::bib2df("assets/works.bib") |>
  # Retain relevant fields and format author list
  dplyr::transmute(
    authors = purrr::map_chr(AUTHOR, format_authors),
    title = TITLE,
    journal = JOURNAL,
    year = ifelse(YEAR == 9999, "In press", YEAR),
    pdf = purrr::pmap_chr(list(AUTHOR, year, TITLE), find_pdf),
    note = ifelse(is.na(NOTE), "", paste0(" ", NOTE))
  ) |>
  # Format in HTML. Markdown doesn't support reverse ordered lists??
  dplyr::mutate(
    pub_html = glue::glue("<li>{authors} ({year}). {title}. <em>{journal}</em>.{note}{create_pdf_link(pdf)}</li>")
  ) |>
  dplyr::pull(pub_html)
# Reverse ordered list
c(
  "<ol reversed>",
  pubs,
  "</ol>"
) |>
  cat()
  1. Czapanskiy, M.F., Arcila Hernández, L., Munro, C., Garfield, I., Bastidas, A., …, Beltran, R. (In press). Long-term studies should provide structure for inclusive education and professional development. Ecology Letters. *Czapanskiy and Arcila Hernández were co-lead authors on this work.
  2. Czapanskiy, M.F., Santora, J.A., Dietrich, K.S., Cimino, M.A., Hazen, E.L., Reiss, C.S., Veit, R.R. (2024). Sea-Ice and Macrozooplankton Distribution as Determinants of Top Predator Community Structure in Antarctic Winter. Marine Ecology Progress Series. PDF
  3. Hazen, E.L., Savoca, M.S., Clark-Wolf, T., Czapanskiy, M.F., Rabinowitz, P.M., Abrahms, B. (2024). Ecosystem Sentinels as Early-Warning Indicators in the Anthropocene. Annual Review of Environment and Resources. PDF
  4. Price, S.E., Savoca, M.S., Kumar, M., Czapanskiy, M.F., McDermott, D., …, Goldbogen, J.A. (2024). Energy Densities of Key Prey Species in the California Current Ecosystem. Frontiers in Marine Science. PDF
  5. Kahane-Rapport, S.R., Czapanskiy, M.F., Fahlbusch, J.A., Friedlaender, A.S., Calambokidis, J., …, Savoca, M.S. (2022). Field measurements reveal exposure risk to microplastic ingestion by filter-feeding megafauna. Nature Communications. PDF
  6. Gough, W.T., Cade, D.E., Czapanskiy, M.F., Potvin, J., Fish, F.E., …, Goldbogen, J.A. (2022). Fast and furious: energetic tradeoffs and scaling of high-speed foraging in rorqual whales. Integrative Organismal Biology. PDF
  7. Fahlbusch, J.A., Czapanskiy, M.F., Calambokidis, J., Cade, D.E., Abrahms, B., Hazen, E.L., Goldbogen, J.A. (2022). Blue whales increase feeding rates at fine-scale ocean features. Proceedings of the Royal Society B. PDF
  8. Nazario, E.C., Cade, D.E., Bierlich, K., Czapanskiy, M.F., Goldbogen, J.A., …, Friedlaender, A.S. (2022). Baleen whale inhalation variability revealed using animal-borne video tags. PeerJ. PDF
  9. Czapanskiy, M.F., Beltran, R.S. (2022). How reproducibility will accelerate discovery through collaboration in physio-logging. Frontiers in Physiology. PDF
  10. Czapanskiy, M.F., Ponganis, P.J., Fahlbusch, J.A., Schmitt, T.L., Goldbogen, J.A. (2022). An accelerometer-derived ballistocardiogram method for detecting heartrates in free-ranging marine mammals. Journal of Exp. Bio.. PDF
  11. Beltran, R.S., Yuen, A.L., Condit, R., Robinson, P.W., Czapanskiy, M.F., Crocker, D.E., Costa, D.P. (2022). Elephant seals time their long-distance migrations using a map sense. Current Biology. PDF
  12. Segre, P.S., Gough, W.T., Roualdes, E.A., Cade, D.E., Czapanskiy, M.F., …, Goldbogen, J.A. (2022). Scaling of maneuvering performance in baleen whales: larger whales outperform expectations. Journal of Exp. Bio.. PDF
  13. Cade, D.E., Gough, W.T., Czapanskiy, M.F., Fahlbusch, J.A., Kahane-Rapport, S.R., …, Goldbogen, J.A. (2021). Tools for integrating inertial sensor data with video bio-loggers, including estimation of animal orientation, motion, and position. Animal Biotelemetry. PDF
  14. Savoca, M.S., Czapanskiy, M.F., Kahane-Rapport, S.R., Gough, W.T., Fahlbusch, J.A., …, Goldbogen, J.A. (2021). Baleen whale prey consumption based on high-resolution foraging measurements. Nature. PDF
  15. Czapanskiy, M.F., Savoca, M.S., Gough, W.T., Segre, P.S., Wisniewska, D.M., Cade, D.E., Goldbogen, J.A. (2021). Modelling short-term energetic costs of sonar disturbance to cetaceans using high-resolution foraging data. Journal of Applied Ecology. PDF
  16. Gough, W.T., Smith, H.J., Savoca, M.S., Czapanskiy, M.F., Fish, F.E., …, Goldbogen, J.A. (2021). Scaling of oscillatory kinematics and Froude efficiency in baleen whales. Journal of Exp. Bio.. PDF
  17. Williams, C.L., Czapanskiy, M.F., John, J.S., Leger, J.S., Scadeng, M., Ponganis, P.J. (2021). Cervical air sac oxygen profiles in diving emperor penguins: parabronchial ventilation and the respiratory oxygen store. Journal of Exp. Bio.. PDF
  18. Goldbogen, J.A., Cade, D.E., Wisniewska, D.M., Potvin, J., Segre, P.S., …, Pyenson, N.D. (2019). Why whales are big but not bigger: Physiological drivers and ecological limits in the age of ocean giants. Science. PDF
  19. Goldbogen, J.A., Cade, D.E., Calambokidis, J., Czapanskiy, M.F., Fahlbusch, J., …, Ponganis, P.J. (2019). Extreme bradycardia and tachycardia in the world’s largest animal. PNAS. PDF
  20. Adams, J., Felis, J.J., Czapanskiy, M.F., Carle, R., Hodum, P. (2019). Diving behavior of Pink-footed Shearwaters rearing chicks on Isla Mocha, Chile. Marine Ornithology. PDF
  21. Kelsey, E.C., Felis, J.J., Czapanskiy, M.F., Pereksta, D.M., Adams, J. (2018). Collision and displacement vulnerability to offshore wind energy infrastructure among marine birds of the Pacific Outer Continental Shelf. Journal of Env. Mgmt.. PDF