## Not run:
# tkn <- imgur_login()
#
# # comment on an image
# cmt <- create_comment("vSXfU46", "This is a test comment", token = tkn)
#
# # create a reply comment
# create_comment("vSXfU46", "This is a test comment", parent = cmt, token = tkn)
# ## End(Not run)
Run the code above in your browser using DataLab