data_single_session <- tibble::tibble(
  action = c(
    "view", "click", "add_cart", "view", "checkout", "view", "click", "share"
   )
)
results_single <- prepare_data(data_single_session, action = "action")
print(results_single, which = "sequence")
print(results_single, which = "meta")
print(results_single, which = "long")
Run the code above in your browser using DataLab