Цель ractivecampaign упростить процесс запроса данных из ActiveCampaign API в R. На данный момент в ractivecampaign присутвует 16 функций:

• ac_auth() - Авторизация
• ac_get_accounts() - Список доступных аккаунтов
• ac_get_custom_account_fields_values() - Значения пользовательских полей аккаунтов
• ac_get_custom_account_fields() - Список пользовательских полей аккаунта
• ac_get_deals() - Список сделок
• ac_get_custom_deal_fields_values() - Значения пользовательских полей сделок
• ac_get_custom_deal_fields() - Список пользовательских полей сделок
• ac_get_deal_piplines() - Список групп этапов сделок
• ac_get_deal_stages() - Список этапов сделок
• ac_get_deal_activities() - Список активностей по сделке
• ac_get_deal_notes() - Список заметок к сделке
• ac_get_users() - Список пользователей
• ac_get_user_groups() - Список групп пользователей
• ac_get_group_by_user() - Получить список групп, в которые входит пользователь
• ac_get_tags() - Получить список всех созданных тегов
• ac_get_contacts() - Список контактов
• ac_get_custom_contact_fields_values() - Значения пользовательских полей контактов
• ac_get_custom_contact_fields() - Список пользовательских полей этапов
• ac_get_contact_tags - Получить теги определённых контактов.
• ac_get_campaigns() - Список кампаний
• ac_get_campaigns_aggregate_revenues() - Дохход по кампаниям
• ac_get_campaigns_messages() - Список сообщений кампаний
• ac_get_messages() - Список всех сообщений
• ac_get_tasks() - Список задач

На данный момент пакет доступн для установки из CRAN или GitHub:

# from CRAN
install.packages("ractivecampaign")

# from GitHub
install.packages("devtools")
devtools::install_github('selesnow/ractivecampaign')

Для авторизации вам необходимо найти в аккаунте URL и Ключ API, для этого перейдите в основном меню перейдите в Settings > Developer, там вы найдёте нужные данные.

library(ractivecampaign)
library(ggplot2)
  
# auth
ac_auth(url = 'Ваш API URL', key = 'Ваш API Key')
# get deals
deals <- ac_get_deals()
  
# analyze
deals %>% 
  mutate(date = as.Date(cdate)) %>% 
  group_by(date) %>% 
  summarise(deals = n_distinct(id)) %>% 
  ggplot( aes(date, deals) ) +
  geom_line() + geom_point() +
  labs(title = 'Deals by date from ActiveCampaign')

Алексей Селезнёв, Head of analytics dept. at Netpeak
Telegram Channel: @R4marketing
Youtube Channel: R4marketing
email: selesnow@gmail.com
Telegram: @AlexeySeleznev
facebook: facebook.com/selesnow
blog: alexeyseleznev.wordpress.com