# NOT RUN {
last_post_media_id <- ig_my_timeline(paginate = FALSE)$id[1]
comment_result <- ig_comment(last_post_media_id,
comment_text = "New Comment!")
comment_media_id <- comment_result$comment$media_id
deletion_result <- ig_comment_delete(last_post_media_id,
comment_media_id)
# }
Run the code above in your browser using DataLab