การส่งอาร์กิวเมนต์ด้วย ...

# Swap na.rm arg for ... in signature and body
calc_harmonic_mean <- function(x, na.rm = FALSE) {
  x %>%
    get_reciprocal() %>%
    mean(na.rm = na.rm) %>%
    get_reciprocal()
}