params = list("duration"="permanent","grant_type"="refresh_token","refresh_token"="TOKEN")

reddit = oauth_endpoint(authorize = "https://www.reddit.com/api/v1/authorize",access = "https://www.reddit.com/api/v1/access_token")
app = oauth_app("reddit", client_id, client_secret)
token = oauth2.0_token(reddit, app,scope = c("read", "submit"),query_authorize_extra=params,use_basic_auth = TRUE, config_init = user_agent("Skippy The Judgeroo Bot 934231"))

comment_query = list("text"=comment_reply,"thing_id"=id,"api_type"="json")
submit_comment = POST(url='https://oauth.reddit.com/api/comment',user_agent("Vivid LIVE 943211"),config=(token=token),query=comment_query)

It gives a 200 status the response but the size is not big enough for it to have submitted text! I just tried to remove the app and start fresh and now I can't even get the token due to 401 error :(