## Not run:
#
# my.groups <- getGroups(in.auth)
#
# id <- my.groups$group_id[1]
# disc.title <- "Test connecting to the LinkedIn API via R"
# disc.summary <- "Im creating an R package to connect to the LinkedIn API,
# + this is a test post from R!"
# url <- "https://github.com/mpiccirilli"
# content.desc <- "Dev version of access to LinkedIn API via R.
# + Collaboration is welcomed!"
#
# submitGroupPost(in.auth, group_id=id, disc_title=disc.title,
# disc_summary=disc.summary, content_url=url, content_desc=content.desc)
# ## End(Not run)
Run the code above in your browser using DataLab