install.packages("httr")
install.packages("jsonlite")

#Этот пакет позволяет запрашивать данные из любого API проще,
#форматируя ваши запросы GET с соответствующими заголовками и аутентификацией
require("httr")

#Когда данные возвращаются из многих API, он будет в формате JSON. Этот пакет форматирует в нужный нам формат
require("jsonlite")

username <- "######################.com"
password <- "############"

base <- "https://###############.amocrm.ru/api/v2/leads?"

course_amo <- "fabrics"
date_from_amo <- "1536936540"
date_to_amo <- "1539960540"

call1 <- paste(base,"query","=", course_amo, "&filter%5Bdate_create%5D%5Bfrom%5D","=", date_from_amo, "&filter%5Bdate_create%5D%5Bto%5D","=", date_to_amo, sep="")

get_prices <- GET(call1, authenticate(username,password, type = "basic"))

get_prices_text <- content (get_prices, "text")

get_prices_json <- fromJSON(get_prices_text, flatten = TRUE)

get_prices_df <- as.data.frame(get_prices_json)

#https://#############.amocrm.ru/api/v2/leads?query=tests - query поисковая строка, lead - раздел поиска
# подробнее на https://www.amocrm.ru/developers/content/api/leads /// URL МЕТОДА ВАЖНО МЕНЯТЬ ПРЕЖДЕ ЧЕМ ОБРАЩАТЬСЯ!!!

#Фильтр по дате (для времени используется timestamp)
#https://#################.amocrm.ru/api/v2/leads?query=sketching108&filter%5Bdate_create%5D%5Bfrom%5D=1538424180&filter%5Bdate_create%5D%5Bto%5D=1539201780

#Консоль разработчика amocrm
#https://www.amocrm.ru/developers/console/#

fifteenth_column_of_course_amo <- get_prices_df$X_embedded.items.custom_fields

#fifteenth_column_of_course_amo[[1]][["values"]][[4]]

id_course_amo <- data.frame("id_course_amo"= fifteenth_column_of_course_amo[[1]][["values"]][[4]])

for (i in 1:nrow(get_prices_df)) {
  print(id_course_amo[i,] <- fifteenth_column_of_course_amo[[i]][["values"]][[4]])
}

#ОЧЕНЬ ВАЖНО. Чтобы он находил все заявки за период, надо ставить
#date_from_amo tamestamp - со временем 00 01 00
#date_to_amo - 23 59 00

d <- ifelse (id_course_amo[1]=="fabrics", "fabrics", NA)

#Создает data.frame, переводит NA в False и в конце which записывает все кроме false
v <- data.frame(which(complete.cases(d)))

itog1 <- nrow(v)

all <- c(itog1,itog2)

write.csv(all, "pr2.csv")