course
/
r4ds
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

better to follow the good practice in 26.3.3 Common use cases (#1493)

This commit is contained in:
Mitsuo Shiota 2023-11-09 12:06:09 +09:00 committed by GitHub
parent 3e9e201b6f
commit e542450760
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
iteration.qmd
View File

@ -310,7 +310,8 @@ summarize_means <- function(df, summary_vars = where(is.numeric)) {
df |> df |>
summarize( summarize(
across({{ summary_vars }}, \(x) mean(x, na.rm = TRUE)), across({{ summary_vars }}, \(x) mean(x, na.rm = TRUE)),
n = n() n = n(),
.groups = "drop"
) )
} }
diamonds |> diamonds |>