open_in_new content_copy
distinct_values <- lapply(df, unique)
open_in_new MORE content_copy COPY

@vs at thiscodeWorks.com