function is getting executed for a invalid argument

Question

Below is the function created to format number.

format_number <- function(num, format_flag = "yes"){
  if(format_flag == "yes"){
    nu