data <- c("apple", "", "banana", NA)
tie_break <- c(1, NA, 1, NA)
second_tie_break <- c(1, NA, 2, NA)
calc_mode_na_ignore(data) # Expect: "apple"
calc_mode_na_ignore(data, tie_break) # Expect: "banana"
calc_mode_na_ignore(data, tie_break, second_tie_break) # Expect: "banana"
Run the code above in your browser using DataLab