FizzBuzz kata written as an R function. Logic implemented with array subsetting instead of loops.

fizzbuzz.R

fizzbuzz <- function(){
  input <- seq(1, 100)
  result <- input
  result[input %% 3 == 0] <- "Fizz"
  result[input %% 5 == 0] <- "Buzz"
  result[input %% 15 == 0] <- "FizzBuzz"
  result
}

fizzbuzz()