library(tidyverse) library(mdsr) x <- data(package = "mdsr") x <- x$results |> as_tibble() |> select(Item, Title)