library(tidyverse)

testing_data <- tribble(
  ~id, ~value,
  1, "a",
  2, "b",
  3, "c"
)