Getting no output in R

Question

   Fbahadır <- function(data) {
  result <- 0
  repeat {
    i<-1
    
    
    if (sum(data) == 0) {
      result <- T
      break
    }
    
    
    #