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.
  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))
      }
    }
  )
  # 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) {
  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))()
}

# 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 = YEAR,
    pdf = purrr::pmap_chr(list(AUTHOR, YEAR, TITLE), find_pdf)
  ) |>
  # Format in HTML. Markdown doesn't support reverse ordered lists??
  dplyr::mutate(
    pub_html = glue::glue("<li>{authors}. ({year}). {title}. <em>{journal}</em>. <a href=\"{pdf}\" target=\"_blank\">PDF</a></li>")
  ) |>
  dplyr::pull(pub_html)
# Reverse ordered list
c(
  "<ol reversed>",
  pubs,
  "</ol>"
) |>
  cat()

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
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
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
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
Czapanskiy, M.F., Beltran, R.S.. (2022). How reproducibility will accelerate discovery through collaboration in physio-logging. Frontiers in Physiology. PDF
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
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
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
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
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
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
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
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
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
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
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
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