devtools::install_github('ThomasChln/mastodon')

docker run -it thomaschln/mastodon

library(mastodon)
token = login('https://framapiaf.org/', 'user@mail.org', 'password')
post_status(token, 'Status text')
post_media(token, 'Image caption', file = '/home/user/file.png')
post_ggplot(token, 'Mastodon instances and users', ggplot_instances_info())

df = get_timeline(token, 'home')
df = get_timeline(token, 'local')
df = get_timeline(token, 'fediverse')
df = get_hashtag(token, 'rstats')
# Get more toots (default rate limit: 2 second sleep for each 20 toots)
df = get_timeline(token, 'fediverse', n = 30)
df = get_hashtag(token, 'mastodon', n = 30)
# Get toots before a specific id
df = get_timeline(token, 'fediverse', max_id = 26432)
df = get_hashtag(token, 'mastodon', max_id = 26432)
# Get hashtag only on local instance
df = get_hashtag(token, 'rstats', local = TRUE)

df = search(token, 'thchln')
# don't resolve non-local accounts
df = search(token, 'thchln', local = TRUE)
df = search_username(token, 'thchln')
df = search_username(token, 'thchln', limit = 2)

account = get_account(token, 475)
toot = get_status(token, 26432)

ggplot_instances_info()

# Use a large server
token = login('https://mastodon.xyz/', 'user@mail.org', 'password')
df_toots = get_timeline(token, 'fed', n = 7e4)
toots_by_hours(df_toots) %>% ggplot_toots_by_hours(token$instance)

toots_by_instances(df_toots) %>% ggplot_toots_by_instances(token$instance)