if (FALSE) {
## get my direct messages
dms <- direct_messages_received()
## inspect data structure
str(dms)
## get direct messages I've sent
sdms <- direct_messages_sent()
## inspect data structure
str(dms)
}
Run the code above in your browser using DataLab