Basecamp Classic GET API wrappers

Query companies, people, projects, and attachments visible to the requesting user

basecamp_projects(host = Sys.getenv("BASECAMP_HOST"),
  token = Sys.getenv("BASECAMP_TOKEN"))

basecamp_project(id, host = Sys.getenv("BASECAMP_HOST"),
  token = Sys.getenv("BASECAMP_TOKEN"))

basecamp_account(host = Sys.getenv("BASECAMP_HOST"),
  token = Sys.getenv("BASECAMP_TOKEN"))

basecamp_companies(scope = c("companies", "project", "company"),
  id = NULL, host = Sys.getenv("BASECAMP_HOST"),
  token = Sys.getenv("BASECAMP_TOKEN"))

basecamp_categories(scope = c("category", "project"), id = NULL,
  host = Sys.getenv("BASECAMP_HOST"),
  token = Sys.getenv("BASECAMP_TOKEN"))

basecamp_messages(scope = c("message", "project"), id = NULL,
  host = Sys.getenv("BASECAMP_HOST"),
  token = Sys.getenv("BASECAMP_TOKEN"))

basecamp_attachments(id, host = Sys.getenv("BASECAMP_HOST"),
  token = Sys.getenv("BASECAMP_TOKEN"))

create_comment(scope = c("posts", "milestones", "todo_items"),
  id = NULL, host = Sys.getenv("BASECAMP_HOST"),
  token = Sys.getenv("BASECAMP_TOKEN"))

edit_comment(id, host = Sys.getenv("BASECAMP_HOST"),
  token = Sys.getenv("BASECAMP_TOKEN"))

delete_comment(id = NULL, host = Sys.getenv("BASECAMP_HOST"),
  token = Sys.getenv("BASECAMP_TOKEN"))

create_message(id = NULL, host = Sys.getenv("BASECAMP_HOST"),
  token = Sys.getenv("BASECAMP_TOKEN"))

basecamp_people(scope = c("person", "project", "company", "me",
  "people"), id = NULL, host = Sys.getenv("BASECAMP_HOST"),
  token = Sys.getenv("BASECAMP_TOKEN"))

Arguments

host	character, URL of the team, Default: Sys.getenv('BASECAMP_HOST')
token	character, Basecamp Classic API token , Default: Sys.getenv("BASECAMP_TOKEN")
id	character, id relevant to the query
scope	character, scope of the request

Value

xml_document

Details

A host url is from the following template: https://teamname.basecamphq.com

Examples

if (FALSE) {
if(interactive()){

 (projects <- basecamp_projects())

 (summary_projects <- summary(projects))

 basecamp_project(summary_projects$id[1])

 (project_attachments <- basecamp_attachments(summary_projects$id[1]))

 summary(project_attachments)

 }
}