pivot_wider() on a char column

test-pivot-wider.R

library(tidyverse)

d <- tibble(
  id = c(1, 1, 2, 2),
  foo = c("oh", "no", "oh", "no"),
  bar = c("hmmm", "ok", "right", "sure?")
)

d %>% 
  pivot_wider(
    names_from = foo,
    values_from = bar
  )

Output

# A tibble: 2 × 3
     id oh    no   
  <dbl> <chr> <chr>
1     1 hmmm  ok   
2     2 right sure?