# NOT RUN {
bieber_user_id <- ig_get_user_id("justinbieber")
bieber_feed <- ig_get_user_feed(bieber_user_id, paginate = FALSE)
most_recent_post_info <- ig_get_media_info(media_id = bieber_feed$id[1])
# }
Run the code above in your browser using DataLab