In deeplexR/lexicoR: Doing Research with DeepLEX

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

GitHub API Workflow

Contribute to `deeplexR/api-test`

token <- readline('Enter Token: ')
userinfo <- lexicoR:::gh_user_info(token)
lexicoR:::gh_fork('api-test', token)
lexicoR:::gh_upload(file = './LICENSE', 
                    owner = 'liao961120',
                    repo ='api-test', path = 'LICENSE1', 
                    gh_name = userinfo['name'], 
                    gh_email = userinfo['email'], token)
lexicoR:::gh_pull_rq(userid = userinfo['userid'],
                     repo = 'api-test', 
                     msg_title = 'PL from LexicoR',
                     msg_body = paste0('Multiline message\n',
                                       'Second Line\n',
                                       '[MD](/)'),
                     token = token
                     )