summarize(across(c(where(is.numeric), -year), 
                   max, na.rm = TRUE, 
                   .names = &quot;{col}_max&quot;))</code></pre>
</div>
<blockquote>
<p>If you wish to view or play around with the <code>penguins</code> dataset, you can do so in the code chunk below. (All tidyverse functions are available to you).</p>
</blockquote>
<div class="tutorial-exercise" data-label="penguins-practice" data-caption="Code" data-completion="1" data-diagnostics="1" data-startover="1" data-lines="3">
