How to shorten this \"if-else\" statements in R studio? Thank you sooo much! fiz

Question

How to shorten this "if-else" statements in R studio? Thank you sooo much!

fizzbuzz = function(v = NULL){
for (term in v){
if (is.infinite(term) != TRUE){
if (is.numeric(term)){
if (term == as.integer(term)){
if (term %% 3 == 0){
if (term %% 5 == 0){
print("FizzBuzz")}
else {
print("Fizz")
}
}
else if (term %% 5 == 0){
print("Buzz")
}
else {
print(term)
}
}
else {
print ("This number is not an integer.")
}
}
else {
print ("This is not a number, or this number was entered as a string.")
}
}
else {
print ("You must enter an integer for this function to work.")
}
}
}

Explanation / Answer

fizzbuzz = function(v = NULL){
   for (term in v){
       if ((is.infinite(term) != TRUE) && is.numeric(term) && (term == as.integer(term))){
           if (term %% 3 == 0 && term %% 5 == 0){
               print("FizzBuzz")
           }
           else if (term %% 5 == 0){
               print("Buzz")
           }
           else if(term %% 3 == 0){
               print("Fizz")
           }
           else {
               print(term)
           }

       }
       else {
           print ("You must enter an integer for this function to work.")
           print ("This is not a number, or this number was entered as a string.")
       }
   }
}

Please let me know in case of any issue

Related Questions

Navigate

• Browse (All)
• Browse H
• Subjects

Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.