ines="0">
<pre class="text"><code>penguins %&gt;% 
  group_by(species, island) %&gt;% 
  summarize(across(c(where(is.numeric), -year), 
                   list(max = max), na.rm = TRUE))</code></pre>
</div>
Artwork by <span class="citation">@allison_horst</span> 
<script type="application/shiny-prerendered" data-context="server-start">
library(learnr)
knitr::opts_chunk$set(echo = FALSE)
library(tidyverse)
library(palmerpenguins)
</script>
 
<script type="application/shiny-prerendered" data-context="server">