FizzBuzz kata as a tibble from tidyverse

fizzbuzz.R

library(tidyverse)

fb <- tibble(
  x = 1:100,
  fizzable = ifelse(x %% 3 == 0, TRUE, FALSE),
  buzzable = ifelse(x %% 5 == 0, TRUE, FALSE),
  formatted = ifelse(fizzable & buzzable, "FizzBuzz",
                     ifelse(fizzable, "Fizz",
                     ifelse(buzzable, "Buzz",
                            x)))
)