fina(c(5, 1, 2, 3, NA))
#> [1] 5
fina(c(5, 1, 2, 3, NA), n = 2)
#> [1] 1
fina(c(NA, 1, 2, 3, NA), na_rm = TRUE)
#> [1] 1
fina(c(NA, 1, 2, 3, NA), na_rm = FALSE)
#> [1] NA
fina(c(NA, NA, NA), na_rm = TRUE)
#> [1] NA
fina(c(NA, NA, NA), na_rm = FALSE)
#> [1] NA