Custom mode function

moreThanOneModeData <- c(1,1,1,2,2,2,3,4,5,6,7,8)
zeroModesData <- c(1,2,3,4,5,6)
testData <- c(1,2,2,3,4,5,6)

modeFunction <- function(x) {
  ux <- unique(x)
  tab <- tabulate(match(x, ux))
  result <- ux[tab == max(tab)]
  if (length(result) == 1) {
    return(result)
  } else {
    return("There is no single mode")
  }
  return(result)
}


modeFunction(moreThanOneModeData)
modeFunction(zeroModesData)
modeFunction(testData)