Helper to convert a transaction object to a df

transaction2df.R

library(arules)

transaction2df <- function(transation_obj) {
  if (!inherits(transation_obj, "transactions")) {
    error_msg <- paste0(
      "\ntransactions objects only pls\n",
      "\ncheck your object with: class(",
      substitute(transation_obj),
      ")"
    )
    stop(error_msg)
  }

  trans_list <- as(transation_obj, "list")
  basket_dfs <- lapply(seq_along(trans_list), function(i) {
    data.frame(
      basket_id = i,
      item = trans_list[[i]]
    )
  })

  trans_df <- do.call(rbind, basket_dfs)
  return(trans_df)
}